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IDENTIFICATION 
PRODUCT CODE: AC - T773A - MC 
PRODUCT NAME: CZTKBAO TKSO DATA RELIABILITY 
PRODUCT DATE: 17 - APRIL - 1985 
MAINTAINER: TAPE OPTICAL DIAGNOSTIC ENGINEERING 
AUTHOR : BRIAN T. LEBLANC 


THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 
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1 GENERAL INFORMATION 
1.1 Program Abstract 

The TKSO PDP11 Q-bus Data gs program will exercise the 
TKSO and establish the performance quality of each unit through the 
accumulation of statistics. Predetermined sequences of operations 
will permit read and write compatibility (Media Interchange testing) 


and data reliability testing. This program will be deolaned te run in 
ea PDP11 Q-bus XXDP+ environment. 


The Date Reliability program will detect functional faults, but 
will not provide diagnostic isolation to the field replaceable unit. 


The PDP11 Q-bus TKSO Data Reliability program is intended for the 
following users: 


1. Quality and user audit functions, 
2. F A€&ET at our various facilities, 
3. Field service personnel, 
4. 


DEC customers who choose to provide their own maintenance. 


Program uses include but are not limited to the following: 

1. Determination of a unit's specific performance (error rate) 
Fault detection, 
Repair verification, 


Installation verification, 


uu & WwW fw 


Preventive maintenance software tool. 


This preeres will exercise up to 4 TKSO'’s in a_ round-robin 
manner. t will require 28KW of memory. One default pass will be 
when a tape cartridge (600') has been started at the beginning of tape 
(BOT) marker and has passed all available tape to the end of tape 
(EOQT) marker over the tape head, twice. One End Of Pass (EOP) will 
require approximately 1 hour and 10 minutes for each unit under test. 


1.2 Runtime Environment Requirements 


Run time environment requirements include: 
1. XXDP+ Diagnostic Supervisor 
2. PDP11 family Q-bus CPU, 
3. 28KW of memory, 
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an XXDP Load Device, 
Console Terminal, 
1 to 4 TKSO drives with controllers, 


NO OW S 


1 scratch tape cartridge / TK5S0 


1.3 Related Documents And Standards 
The TKSO Data Reliability program will run under the XXDP-+ 
operating system, and will be Supervisor compatible. The program, 
with the supervisor will run on all PDP11 Q-bus processors. 
This program will conform to the following documents: 
EL-ENDIA-11 “PDP11 Diagnostic Design Guide”, 
PDP Diagnostic Quality Assurance Checklist, 
Software Development Policies And Procedures Manual, 
DEC Std 100, 
UNIBUS/Q-bus Storage Systems Port Spec Version 2.1 


Magnetic Tape ' + Storage Control Protocol Spec Version 1.6 


NO Ww F&F WwW hf 


Mass Storage Cc 1 Protocol Spec Version 1.2 


1.4 Pass/Fail Criteria 

A unit under test will not pass the data reliability mode of 
testing if any of the following error conditions have occurred during 
the test cycle: 


-. x irrecoverable write errors detected as documented in the 
TK50 product specification, 


2. te irrecoverable read errors detected as documented in the 
TK50 product specification, 


Irrecoverable hardware errors have occurred, 


4. CRC recoverable read errors which exceed TBD errors in 10 to 
the lith bits read 


5. ECC recoverable read errors which exceed TBD errors in 10 to 
the llth bits read 
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| 
207 If less than the required data has been transferred, the 
208 confidence that the unit has met the error rate is diminished. That 
209 is to say if the program is run in a quick verify mode, the unit may 
sy be accepted as error free but only with a low degree of confidence. 
212 
215 
216 The time required to perform 100% software data comparisons is 
217 entirely prohibitive for streaming tape drives. This problem is 
218 further exacerbated by the asynchronous nature of command execution 
219 under TMSCP and program size limitations which dictate the allocation 
334 of a single read data buffer. 
222 To minimize the impact of all this, tests 2 and 3 (the only tests 
223 which will perform software data compares) will do software data 
224 compares on every 4th record. To avoid the problem of performing data 
225 compares on a dynamic read buffer, 3 records will be read from tape 
226 using the Access command. 
227 
228 
229 
231 
232 This program is not intended for use as an isolation tool to 
233 detect a fault to the single Field Replaceable Unit (FRU). As such, 
234 it will not contain scope loops for that purpose. The parameter 
235 selection process, discussed later in this document, is meant to be 
236 used only for functional fault detection and unit isolation. 


213 | 
214 1.5 Data Compare Function 
i 
i 
230 1.6 Restrictions 
i 
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2 OPERATING INSTRUCTIONS 
2.1 User Dialogue 


The following user dialogue will be provided by the diagnostic to 
allow the operator to establish certain operational parameters of the 
program. 


2.2 Hardware Questions 


This set of questions must be answered by operator when the 
program is first started. 


CHANGE HARDWARE (L) ? no default 
NUMBER OF UNITS (D) ? 


UNIT x x = Number of unit the p-table is 
TKIP ADDRESS (0) 774500 ? being built for. 
T/MSCP UNIT NUMBER (0) 0 ? 


Unit specific prompting will continue for a maximum of 4 times, 
depending on the users response to the "NUMBER OF UNITS” question. 


2.2.1 Definition Of Hardware Questions - 


CHANGE HARDWARE - If you want to change the hardware p-table to be 
used in the testing this question must be answered yes. This question 
must be answered with a yes on the initial start of the program. 


NUMBER OF UNITS - Number of units to test in decimal. 
TKIP ADDRESS - The base address for this unit. 


T/MSCP UNIT NUMBER - The unit number of the controller board as 
specified by MSCP. 


2.3 Software Questions 


Answering of the software questions is always optional. Default 
values for a specific question can be obtained simply by typing a 


<CR>. 
CHANGE SW (L) ? no default 


ENABLE TIME OF DAY CLOCK (L) N ? 

INPUT HOUR IN 24 HOUR FORMAT (OMIT LEADING ZERO) (D) 0 ? 
INPUT MINUTES (OMIT LEADING ZERO) (D) 0 ? 

CHANGE CONTROLLER PARAMETERS (L) N ? 

ENABLE CONTROLLER ERROR CORRECTION (L) Y ? 

ENABLE CONTROLLER ERROR RECOVERY (L) Y ? 

ENABLE PAD BLOCKING (L) Y ? 
CHANGE PRINTING PARAMETERS (L) N ? 

ENABLE SOFT ERROR REPORT PRINTING (L) N ? 


SEQ 6 
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352 ENABLE PAD BLOCKING (L) Y ? 


| 

| 296 ENABLE READ SOFT ERRORS ONLY (L) Y ? 

| 297 CLEAR MEDIA TABLE ON EVERY PASS (L) N ? 
298 ENABLE PRINTING OF MEDIA DEFECTS TABLE (L) N ? 
299 ENABLE PROGRAM VARIABLES DUMP ON ERROR (L) N ? 
300 ENABLE CLEAR STATS ON FATAL ERROR (L) N ? 
301 CHANGE TEST PARAMETERS (L) N ? 
302 DATA PATTERN (D) 0 ? 
303 RUN TEST 3 ONLY (L) Y ? 
304 ENABLE DATA COMPARES IN TEST 5 (L) Y ? 
305 ENABLE PRINT READ BUFFER IN TEST 5 (L) N ? 
309 CHANGE COMMAND SEQUENCE (L) N ? 
308 
309 
if 2.3.1 Definition Of Software Questions - 
312 
7 ENABLE TIME OF DAY CLOCK (L) N ? 
315 The default is to not enable the clock. This question allows the 
316 operated to start a program clock to track time on a 24 hour basis 
317 during the running of the program. The clock will remain fairly 
318 accurate as long as_ the program is running. a time you stop the 
319 program the clock will stop running. It is therefore necessary to 
tf reset the time whenever the program is started. 
322 
dy INPUT HOUR IN 24 HOUR FORMAT (OMIT LEADING ZEROS) (D) 0 ? 
oH Input the hour in a decimal number leaving off any leading zeros. 
327 
ace INPUT MINUTES (OMIT LEADING ZEROS) (L) 0 ? 
eee Input the minutes in a decimal number leaving off any leading zeros. 
332 
3 
re CHANGE CONTROLLER PARAMETERS (L) N ? 

6 
337 The default answer (no) prohibits the asking of the controller 
ha parameter questions. To change the controller parameters type a Y 
ty ENABLE CONTROLLER ERROR CORRECTION (L) Y ? 
342 If answered "yes" (default) the program will enable the controller's 
3 error correction algorithms for read errors. 
345 
=e ENABLE CONTROLLER ERROR RECOVERY (L) Y ? 
348 If answered “yes” (default) the program will enable the controller's 
aM error recovery algorithms for write and read errors. 
351 
\ 
‘ 
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If answered “yes” (default) the program will enable the controller's 
pad blocking algorithms to assist in streaming 


CHANGE PRINTING PARAMETERS (L) N ? 


The default answer (no) prohibits the asking of the printing parameter 
questions. To change the printing parameters type a Y. 


ENABLE SOFT ERROR REPORTS (L) N ? 


The default answer (no) inhibits the printing, but not the tallying of 
soft errors as reported by the subsystem. Answering the question 
"yes" will result in detailed error reports on the terminal for each 
recoverable data error. : 


ENABLE READ SOFT ERRORS ONLY (L) N ? 


This question will only be asked when the above question is answered 
no. This question allows the operator to enable print outs on read 
4 thao sgy only. The default answer is to inhibit all soft error 
printouts. 


CLEAR MEDIA TABLE ON EVERY PASS (L) N ? 


The default answer (no) allows the tallying of media defects over 
multiple passes. By answering the question yes, the operator can then 
print the table on every pass and see how the defects are affected by 
passing over the heads. 


ENABLE PRINTING OF MEDIA DEFECTS TABLE (L) N ? 


The default answer (no) inhibits the printing, but not the tallying of 
media defects as reported in the soft error reports by the subsystem. 
If the default answer is used the table may still be printed by giving 
the PRINT command at the supervisor prompt (DS>) after the termination 
of the program. Answering the question "yes" will cause the printing 
of the table after every pass and after a control C (C) is issued. 


ENABLE CLEAR STATS ON FATAL ERROR (L) N ? 


The default answer (no) allows the accumulation of statistics from 
pass to pass. An answer of "yes" results in the clearing of a devices 
statistical matrix following any error that results in the unit's 
being dropped from the test sequence for the rest of the current pass. 
This action is intended for use primarily by Springfield volume 
manufactur ing. 


ENABLE PROGRAM VARIABLES DUMP ON FATAL ERROR (L) N ? 


——— 
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410 

411 This question is intended as a program and subsystem debug tool. 
412 Answering the question “yes” will cause the program to print out the 
413 contents of approximately 1K words of critical memory locations. This 
414 is @ time consuming process and this question should be defaulted 
aiz under ordinary circumstances. 
417 
418 
rit CHANGE TEST PARAMETERS (L) N ? 
421 The default answer (no) prohibits the asking of the test parameter 
458 questions. To change the test parameters type a Y 
ass DATA PATTERN (0) O ? 
426 This question allows the user to select a data pattern from the table 
427 of patterns provided by the program. (See the Data Pattern section 
428 below.) The default answer, "0", causes the program to cycle through 
429 all the data patterns. Answering the question with a number from 1-5 
430 will causes the Sg) Age to use that pattern only. A number higher 
ret than 5 will cause the question to be repeated. 
433 
as RUN TEST 3 ONLY (L) Y ? 
436 Answering this question “Y" (default) will automatically cause the 
437 program to run test 3 only; i.e., it will no longer be necessary to 
438 use the /TES:3 switch to the start command. Please note that this 
439 question will effectively override the /TES: switch if the user 
440 wishes to run a test other than 3. That is, if the user wants to run 
ass test 4 he must specify the /TES:4 switch AND answer this question "N”". 
443 
re ENABLE DATA COMPARES IN TEST 5 (L) N ? 
446 The default answer (no) disallows the data compare function during 
447 test 5. This would have to be the case when running with a truly 
448 unknown tape. The option (yes) is given to the operator so that when 
449 ea tape is written in a known manner using this program the operator 
450 can then run test 5 using data compares. 
432 
rt ENABLE PRINT READ BUFFER IN TEST 5 (L) N ? 
4 
455 Answering this question bg will cause a printout of all data read 
456 from tape in test 5. he data will be presented on a record basis. 
457 This is a time consuming process, and this question should be 
a defaulted except in special cases. 

1 at CHANGE COMMAND SEQUENCE (L) N ? 

462 Answering this question "Y" will cause the program to prompt the user 

| 463 for a sequence of commands to be used in Test 7. (See Test 7 below.) 

| a7 If defaulted, this is the last software question asked. 

| 466 
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2.4 Conversation Mode Test Questions 


Answering of these question is optional. These questions will 
rot be asked unless the operator has answered the CHANGE COMMAND 
SEQUENCE question with a yes. A totel of seven commands may be 
entered by the operator. 


Test 7 is intended to give the user the ability to create oa 
specific sequence of commands. Note that Test 7 will not support the 
entire TMSCP command repertoire, it is limited primarily to the tape 
motion commands. To run Test 7, the user must issue a STA/TES:7 and 
must answer “Run Test 3 Only” with a N(O). The user must also answer 
"Change Command Sequence” with a Y (yes). Understand that the program 
does not check for legality of command sequences issued by the user, 
the onus is on the user to perform this check. 


The following questions will be asked by the program to prompt 
the user for his input. 


CMD/1 (0) 160 ? 


The user enters the octel value for the desired command from the list 
shown below. Please note that the command values are those defined by 
the diagnostic, not by TMSCP. The default value for the first command 
is @ rewind. 


DATA PATTERN (0) 1 ? 


The user should enter the octal value of the desired data pattern from 
the table of patterns shown above. If the command does not use a data 
pattern, any number entered here is ignored. 


PATTERN # DESCRIPTION 


ROTATE THROUGH ALL DATA PATTERNS 
ALL 1'S 

ALL O'S 

WORST-CASE MFM PEAK SHIFT (110) 
ALTERNATE 1‘S AND 0'S 

RANDOM DATA 

MW PEAK SHIFT (1110) 

COMBINATION OF PATTERN 3 AND 5 
200 NO DATA PATTERN USED 


ITEM COUNT (BYTE, RECORD, OBJECT) (D) 0 ? 


The purpose of this field varies with the type of command. For 
example, for write and read commands, the user may specify the record 
size, in decimal bytes. If the command is a reposition commard, the 
user may specify the number of records, eb jecte or file marks. There 
are also two special commands provided which use this value in unique 


NOU SWRrO 


SEQ 10 
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weys. For a branch command, the user would specify the command number 
to which (s)he wishes to branch. For the delay command, the velue 
entered here is the relative delay length, with larger numbers 
producing longer delays. User experimentation may be required to 
produce desired delay. 


ITERATION COUNT (D) 1 ? 


This field allows the user to specify how many times the command 
should be issued before the program issues the next command. The 
value is entered in decimal. 


Additional Commands 


This seme sequence of four questions will be repeated up to 6 more 
times, allowing the operator to create a command table with seven 
unique commands. The only noticeable difference in question format is 
that each time the command question is asked, its relative position in 
the Test 7 command table is identified. 


2.5 Allowable Commands 


The following commands are supported by Test 7. Please remember 
that the octel values are defined by the program and have no numer ical 
correlation to TMSCP command opcodes. Also note that the diagnostic 
does not check for legality of the value entered or for valid command 
sequences. Operator error in either of these cases could result in 
bizerre program behavior. 


Octal Command Description 
10 RD Read forward 
20 WR Write 
30 CMP Compare host date 
40 ACC Access 
50 SPC Space records 
51 SCR Space records reverse 
60 SKP Skip tape marks 
61 SKR Skip tape marks reverse 
70 SPO Space ob jects 
71 SPR Space objects reverse 
100 W™M Write tape mark 
160 REW Rewind 
300 BR Branch - item count specifies destination 
310 DLY Delay - item count specifies relative delay 
377 END End of sequence - necessary if sequence has 


less than 7 commands 


7 


2.6 Supervisor Run Time Flags 


This progres will support all of the PDP11 Diagnostic Supervisor 
flags except for those mentioned here. 


LOE - Loop on Error - This flag will not be supported by th’s program. 


SEQ 11 
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Dete reliability programs do not lend themselves to implementation of 
error loops. 


IDR - Inhibit Drop Units - This fleg will not be supported by this 
progrem due to the devices sequential operation. If an error of fatal 
extent happens on the device there is no way to continue running in 
any meaningful way. 


a  — — —————————————eee an -——_— 
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3 ERROR INFORMATION 
3.1 Error Reporting 


TKDR provides ea variety of information in its error printouts, 
most of which is self-explanatory. The following information is 
intended to clarify certain messages and abbreviatiors used. 


3.2 Commands 


All error printouts will contain a field indicating the command 
on which the error was detected. Refer to the TMSCP specification for 
detailed descriptions of these commands. Also, please -note that 
commands currently used by TKDR are indicated by an asterisk. 


RD« read 

WRTs write 

CMP compere host date 
ACCs access 


SPCe space records (position) 
SKP« skip tape marks (position) 
SPO« space objects (position) 
WIMs« write tape mark 


ERS erase 

ERG erase gap 

AVL* available 

ONL + online 

SUC set unit characteristics 
REWs rewind (position) 


ABO abort 

.GCS* get command status 

GUS get unit stetus 

SCC* set controller characteristics 


The following two “commands” are used by TKDR for special 
purposes and are not actually sent as commands to the subsystem: 


NUL null - used by program to while waiting for last responses 
to real commands 

INT initialize - used by program to invoke the UQ-Port init 
sequence 


3.3 Type Of Error 


Each error message includes one line of text intended to describe 
the type of error detected. There are three distinct sources of 
information used by the program to generate the text message: the 
stetus field of an end packet; an error log packet; and program 
detected error conditions. 


3.4 Stetus Errors 


SEQ 13 
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These messages are derived from the status field of an end packet 
and Sirceeene directly to the status codes as defined in the TMSCP 
specification. 


Invalid command issued 
Command aborted 

Unit offline 

Unit aveilabie error 
Unit write protected 
Data compare error 

Date error 

Host buffer access error 
Controller error 

Drive error 

Formatter error 

BOT encountered 

Tape mark encountered 
Data record truncated 
Position lost 

Serious exception 
Logical EOT encountered 


3.5 Error Log Packets 


Certain messages will be generated as a result of receiving the 
"diagnostic mode” error log packet. 


Retriable Data 
CRC Error on ECC Block 


3.6 Program Detected Error Conditions 


In addition to reporting errors detected by the subsystem, TKDR 
may generate additional error reports based on problems it detects. 
These error conditions are presented and defined here. 


Invalid status received - the contents of the status field of an end 

pocess is not a valid status as defined by 
MSCP 

Port-detected error - examination of the SA register indicated an 
error condition exists within the controller 

Program command timeout - the program received no end packet from the 
subsystem within the predefined command time- 
out. 


Response out of sequence - the program received an end packet for a 


ae ee 


SEQ 14 
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759 227 97 Drive block address overflow 


~~ 
vi 
@ 
hw 
tw 
oO 
wo 
oO 


! 
| 
| 708 sequential command other than the oldest out- 
Lec standing command. | 
707 Port initialization failed - the port failed to make an expected step 
108 transition during the UQ-Port init sequence. 
710 Software data compare - the program's data compare routine detected a | 
"3 miscomparison of read data to expected data. i 
i 
713 Record length short - the data record read from tape was shorter than | 
ne the record length expected. j 
738 3.7 Drive Errors 
718 On occurrence of a Drive Error, status code of 13(8), the error 
719 log packet will now contain a status code which is the drive error 
720 ore es returned by the drive. This value will be placed in the DRV 
Lk ¢ CODE field of the error log packet. 
723 To understand the precise nature of the error condition it will 
724 be necessary to correlate the value presented in the printout against 
725 the table below. 
726 
727 
128 Octal Hex Description 
730 1 01 Write lock violation 
731 2 02 Drive fault 
732 4 04 Communication exception (timeout, etc. ) 
733 6 06 Wrong track error ence yp a turnaround) 
734 10 08 No cable or drive powered off 
735 20 10 Synchronization failure - write/read 
736 23 13 
737 44 22 
738 45 23 
739 47 27 
740 201 81 Failure to load to BOT 
741 202 82 Failure to unload tape into cartridge 
742 203 83 General motor or tach failure 
743 204 84 Motor A failure 
744 205 85 Motor 8 failure 
745 206 86 Drive lost control of tape or bad tach 
746 207 87 Excessive drag in tape transport 
747 210 88 Failure to stop tape or remain stopped 
748 211 89 Cartridge insert error 
749 212 8A Cartridge extract error 
750 213 8B CU attempted to move tape with drive in error 
751 214 8C Deceleration timeout error 
752 215 8D Second attempt to balance reels in init failed 
753 220 90 8155 RAM memory failure in self-test | 
754 221 91 8155 timer failure ' 
755 222 92 Read amplit (Hd 1) too low in calibrate | 
756 223 93 Read amplit (Hd 2) too low in calibrate 
757 225 95 EOQT sensed in R/W/S | 
BOT sensed in R/W/S ! 
| 
| 
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98 Drive block address underflow 

99 Servo error - excessive speed variations 

9A Failure in tracking - currently not used 

9B Command error - not recognized 

9C Illegal command - incompatible with drive state 
9D Write lock error 

9E Write gate at wrong time 

OF No write gate for calibration track write 

AO Error sensing cal track 1 - bad head? 

Al Error sensing cal track 2 - bad head? 

A2 Detection of edges of cal trk 1 out of spec 
A3 Detection of edges of cal trk 2 out of spec 
A4 Offset of cal trk 2 from 1 is too great 

AS Search for bottom edge of tape failed - 

A6 Bottom tape edge tolerance error 

A7 Drive is overheating 

A8 No current in LED of BOT sensor (cable?) 

A9 Hall switch sense lines Motor A questionable 
fp Tachometer failure 


3.8 Hard Error Reports 


Hard error reports, if not user 


disabled, will be generated 


anytime an error recovery process does not successfully complete. 


Hard Error reports will typically be of the following format: 


CZTKB HRD —— ON UNIT 00 TST 003 SUB 000 PC: 020460 


HARD DATA E 

COMMAND: RD T/MSCP UNIT: 000(0) 
PASS: 1(D) DATA PAT: 01(0) 
RECORD BYTE COUNT: 457(D) 


OBJECT CNT : 000000026352(0) 
RESPONSE PACKET 


HIGH WORD LOW WORD 
000000(0) 026532(0) 
000000(0) 000000(0) 
000050(0) 010240(0) 
000000(0) 000733(0) 
000000(0) 000000(0) 
000000(0) 000000(0) 
000000(0) 000000(0) 
000000(0) 001413(0) 
000000(0) 000733(0) 
NOTE 


3 gps reports will not include a Response Packet 
ield. 


For example a Command Timeout Error, by 


definition, results only when no response to a command 
has been received prior to expiration of the programs 
watch dog timer. 


' 
2 ee ee coe eee ee ad 
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3.9 Soft Error Reports 


Soft error reports, if mot user disabled, will be generated ‘ 
anytime an error recovery process is successful. The soft error 
report will include the number of retries necessary in order to 
successfully complete the current operation. Soft Error reports will 
typically be of the following format: 


CZTKB SFT RD ERR 00014 ON UNIT 00 TST 003 SUB 000 PC: 020460 
ECC a DATA ERROR 
Rien AND: RD T/MSCP tg 000(0) 
PASS: 1(D) DATA PAT: 01(0) 
OBJECT CNT : 00000002 26352(0) 
TAP OBJ CNT: 000000026352(0) 


TRK NUM: 6(D) LEVEL: “2 heme 1(D) 
LOG BLK NUM: 0(D) PHYS BLK NUM: 32(D) 
DRV CODE: 000(0) ORV FLGS: 41(0) 
DRV STATE: 000000(0) INTERN STATUS: 02(0) 
TAP CNT O: 227(0) TAP CNT 1: 15(0) 
TAP CNT 2: O25(0) RD/WR STATE: 000000003 


OPER FLGS: 000000(0) 


a ee eee 





—— - me ee eee 





—— 
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| 
| ot) 4 PERFORMANCE AND PROGRESS REPORTS | 
843 41 Statistics Matrix 
844 | 
845 
846 READ WRITE 
847 CH 1 H CH 1 CH 
848 SOFT DATA ERRORS | 
849 RETRY RECOVERED x xX x x 
850 ECC CORRECTED x x N.A | 
85) HARD DATA ERRORS 4 x x x 
852 CRC ON ECC BLOCK x x N.A. 
853 DATA COMPARE ERRORS x N.A. 
854 DATA UNDERRUN N.A. x 
855 DATA OVERRUN x N.A. 
856 MISPOSITIONS x x 
857 OTHERS 4 
858 TIMES DROPPED x 
859 BYTES WRITTEN X,XXX,XXX, XXX 
a4 BYTES READ X,XXX,XXX, XXX 
at . TRK PHY BLK HWR HRD SWR_ SRD 
864 0 26 0 0 3 0 
865 0 2474 0 0 1 0 
866 
867 2 126 0 0 1 0 
868 i 40374 0 0 1 0 
869 
870 
871 
872 
873 4.2 Read Error Definition 
874 
875 
ars 1. SOFT DATA ERRORS 
878 OQ Retry Corrected - ECC disabled or repositioning was 
a required because >1 block in ECC group was bad. 
8 
881 O ECC Corrected - CRC error occurred on data block but ECC 
882 has corrected it 
883 
884 : 
885 2. Hard Data Errors - Maximum retries exhausted and data not 
4 recovered. 
888 3. CRC Error on ECC Block - Data was read successfully, but CRC 
+44 error occurred 
891 - 4. Data Compare - No hardware detected errors, but the data 
4 compare failed. on an associated ECC block. 
894 5. Data Overrun - The controller did not have sufficient buffer 
895 space for read data. 
i 


| 
896 . | 
| 
| 


- = A 


| | G2 


- 
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| 
| 898 4.3 Write Error Definition 
899 
900 
901 1. Retry Recovered - Operational write algorithm was enabled and | 
902 controller successfully recovered from a write error. (In 
903 this case, media-induced write errors will appear in this 
oes category. 
906 2. Hard Data Errors - Write retries exhausted and block not i 
od successfully written. i 
909 3. Underrun - Controller ran out of write data blocks prior to a 
910 record boundary. 
911 
912 
913 
914 
915 4.4 Miscellaneous 
916 
917 
4 1. Mispositions - Times the drive lost position on tape. 
920 2. Others - This is a tally of all errors not specifically 
+ called out in the error matrix. 
923 3. Times Dropped - Times the drive has been dropped by the 
924 program. 
925 
! 
| 
| | 
| 


~— me ee 
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4 5 TEST DESCRIPTIONS 
3 5.1 Test 1 Basic Function Test 
931 This test will execute a subset of the available commands on the 
932 unit under test. It serves as a quick verify test to ascertain that 
933 the unit can move tape and write/read predictably, without error. The 
an subset of legal commands will be issued in a coherent manner. 
+ The testing sequence, performed once will be as follows: 
aes 1. Execute online 
4 2. Rewind to ensure that tape is at BOT, 
a 3. Write two tapemarks, just after BOT, 
oe 4. Backspace two tapemarks, 
es 3 5. Space forward to LEOT, 
948 6. Rewind, 
949 
950 7. Write, using increasing byte counts, rotating through all 
951 data patterns, using decreasing file lengths. Files to be 
o3e separated by tape marks. 
ome 8. Write LEOT after previous sequence, 
956 9. Rewind, 
957 
oes 10. Read records of the first file, 
9 
=e 11. Space records over the second and third files, 
61 
eg 12. Space objects over the fourth file, 
96 
4 13. Read records of the fifth file, 
96 
eee 14. Skip reverse over four tape marks, 
96 
ae 15. Skip forward one tape mark, 
6 
or 16. Read the second file set, 
os 17. Space objects over the third record set, 
or 18. Read the fourth record set, 
ba 19. Space objects to LEOT, 
a. 20. Space objects reverse to Just after BOT, 
at 21. Skip four tape marks, 
982 22. Space records over the fourth record set, 


Ried 


‘ 
4 
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23. Skip a tape mark, 

24. Read the sixth record set, 

25. Skip two tape marks, 

26. Space objects reverse to the end of the second file set, 
27. Skip a tape mark, 

28. Read the third file set, 

29. Rewind tape, 


5.2 Test 2 Quick Verify Read/Write Test 


This test rewinds the tape, then executes the following sequence: 

1. Write record set, 

2. Write LEOT, 

3. Rewind, 

4. Reposition to just written record set, 

5. Read the current record set, 

6. Skip to LEOT. 
for 5 iterations or until fatal error is encountered. This test 
permits retries, fixed record length (4096 bytes decimal), fixed 


number of records/set (250), and predetermined data patterns. This 
test will execute in a round-robin manner. 


5.3 Test 3 Complex Read/Write Test 


This test rewinds the tape, and executes the following sequence: 
1. Write N records, 

Write a tape mark, 

Repeat 1 and 2 until EOT is reached, 

Write 2 tape marks (LEOT), 

Rewind, 


Read N records, 


NOD WW S&F WwW 


Space 1 record (should see unexpected tape mark ) 


——— 


SEQ 21 
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8. Repeat 6 and 7 until LEOT. 


Number of records (N), and record size will be randomly selected. 

This sequence will permit hardware _retries, if enabled by the 

operator. This test will run until EOT, LEOT or fetal error is 

corernee, All data patterns including random data will be used in 
is test. 


5.4 Test 4 Write Interchange Tape 

This test will rewind the tape, then write until EOT or a fatal 
error is encountered. This test will keep track of the number of 
records and files written. If a fatal error is encountered, a messa 


will report it, the tape on the unit will be rewound, and the unit 
prevented from executing further write operations. 


5.5 Test 5 Read Unknown Tape 
This test will rewind a tape, then read until E0T, LEOT or fatal 
error is encountered. This test will keep track of the number of 
records and files read. If a fatal error is encountered, a message 
will report it, the tape on the unit will be rewound, and the unit 
prevented from executing further read operations. 
NOTE 

Tests 4 and 5 can be used to perform a media 

interchange test for multiple drives. The program 

will not attempt to make any determination as to 


whether the unit that wrote the tape or the unit 
reading the tape is at fault for any errors. 


5.6 Test 6 Start/Stop Write/Read Test 


This test rewinds the tape, then executes the following sequence: 
1. Write record set, stopping between each record, 
Write a tape mark, 
Repeat steps one and two until two tracks have been written, 
Write LEOT, 
Rewind, 
Read the record set stopping between each record, 


Skip a tape mark, 


on ovo WF WwW fF 


Repeat steps six and seven until LEOT is detected, 


Ke 
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1098 } 
ete: 9. Rewind. 
1101 Until fatal error is encountered. This test permits retries, fixed 
1102 record —— (8096 bytes decimal), fixed number of records/set (250), 
1103 and predetermined data patterns. This test will execute in oa 
1104 round-robin manner. 
1105 
1106 
1107 
ioe 5.7 Test 7 Conversation Test 
1110 Conversation mode will run with or without error reports. The 
1111 user can select, from a list of commands, a sequence which can be used 
1112 to emulate a known failure mode. Between commands, the user can 
1113 specify unique delays, ranging from 10 to 250 ms. The user can follow 
1114 each tape command with integer values, the first indicating the 
1115 byte/record/file count and the second indicating the # of repetitions 
‘tie epee for that command. 


TT me me - 


a re ee ee - 


SE A 


PARAMETER CODING 


1174 002000 


002000 


000000 
000000 
000001 
000000 
002124 
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- TITLE PROGRAM HEADER AND TABLES 
-SBTTL PROGRAM HEADER 


3° 


- ENABL 


BGNMOD 


ABS, AMA 
* 2000 


; THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
; THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


L $NAME : 


POINTER BGNSW,BGNSFT,BGNRPT ,ERRTBL ,BGNDU,BGNSE TUP 


LS$REV:: 

L$DEPO:: 
LSUNIT:: 
L$TIML:: 
LS$HPCP: : 


L$SPCP:: 
LSHPTP: : 
LS$SPTP:: 


LS$LADP:: 


L$STA:: 


L$CO:: 


L$DTYP:: 
LSAPT:: * 
LS$DTP:: 

LSPRIO:: 


HEADER (CZTKB,A,0,15000,1,0 
2: ;DIAGNOSTIC NAME 
ASCII /C/ 
ASCII /Z/ 
ASCII /T/ 
ASCII /K/ 
-ASCII /B/ 
-BYTE 0O 
eYTte § 
-BYTE 0 
sREVISION LEVEL 
ASCII /A/ 
30 
ASCII /0/ 
sNUMBER OF UNITS 
. WORD T$PTHV 
;LONGEST TEST TIME 
-WORD 15000 
:POINTER TO H.W. QUES. 
WORD L$HARD 
:POINTER TO S.W. QUES. 
-WORD LS$SOFT 
:PTR. TO DEF. H.W. PTABLE 
-WORD LS$HW 
:PTR. TO S.W. PTABLE 
WORD L$SW 
;DIAG. END ADDRESS 
-WORD LS$LAST 
sRESERVED FOR APT STATS 
-WORD 0O 
-WORD 0O 
sDIAGNOSTIC TYPE 
WORD 1 
;APT EXPANSION 
. WORD 
;PTR. TO DISPATCH TABLE 
-WORD LSDISPATCH 


sDIAGNOSTIC RUN PRIORITY 


SEQ 24 


ET ee tt, tere 


a a ee 


PROGRAM HEADER AND TABLES 


PROGRAM HEADER 


002072 040700 
002074 000000 
002076 002142 
104035 
002102 013262 
002104 037004 
002106 040372 
002110 040370 
002112 021036 
002114 000000 
002116 000000 
002120 000000 


Me 
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LSENVI: : 
LSEXP1:: 
LSMREV:: 


LSEF:: 


L$SPC:- 
LSDEVP:: 
L$REPP: : 
LSEXP4:; 
LSEXPS:: 
L$AUT:: 
L$DUT:: 
L$LUN:: 
LSDESP:: 
LSLOAD: : 
LSETP:: 
LSICP:: 
LSCCP:: 
L$ACP:: 
LSPRT:: 
L$TEST:: 
LSOLY:: 
LSHIME: : 


0 
0 sFLAGS DESCRIBE HOW IT WAS SETUP 
0 ;EXPANSION WORD 


;SVC REV AND EDIT @ 
CSREVISION 
CsEDIT 

;DIAG. EVENT FLAGS 


0 
0 
0 
; POINTER TO DEVICE TYPE LIST 
L$DVTYP 
;PTR. TO REPORT CODE 
L$RPT 
0 
0 
9 ;PTR. TO ADD UNIT CODE 
~~ ;PTR. TO DROP UNIT CODE 
0 ;LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
L$DESC 
;GENERATE SPECIAL AUTOLOAD EMT 
E$LOAD 
sPOINTER TO ERRTBL 
LSERRTBL 
;PTR. TO INIT CODE 
L$INIT 
;PTR. TO CLEAN-UP CODE 
LSCLEAN 
;PTR. TO AUTO CODE 
L$AUTO 
;PTR. TO PROTECT TABLE 
L$PROT 
P ;TEST NUMBER 
5 ;DELAY COUNT 
;PTR. TO HIGH MEM 
0 


SEQ 25 


PROGRAM HEADER 
DISPATCH TABLE 


1203 002174 
002174 
002174 
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-SBTTL DISPATCH TABLE 


3° 
; THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 


DISPATCH 7 
000007 q 7 
L$DISPATCH: : 
040714 “WORD Tl 
043116 “WORD T2 
12 “WORD 13 
044270 ‘WORD 14 
044650 “WORD 15 
045170 "WORD 6 | 
045646 ‘WORD 17 | 
jpate DESCRIPT <CZTKBAO DATA RELIABILITY> 
103 132 124 ~ +ASCIZ /CZTKBAO DATA RELIABILITY/ | 
; NAMES OF DEVICES SUPPORTED BY PROGRAM 
DEVTYP <TKSO> 
LS$DVTYP:: 
124 113 065 “ASCIZ s#TK50s 
"EVEN 


AM HEADER AND TABLES 
HARDWARE P- 


1218 
1219 002210 
002210 


— Te 


000002 


174500 
000000 


TABLE 
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-SBTTL DEFAULT HARDWARE P-TABLE 


¢ 

; THE DEF AULT na bank P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
; IS IDENTICAL TO THe STRUCTURE OF THE HARDWARE P-TABLES. 


BGNHW = DFPTBL 
«WORD L10000-L$HW/2 


174500 ; TKIP ADDRESS 
0 3T/MSCP UNIT NUMBER 


ENDHW 
L10000: 


a ee 


SEQ 27 


— — —-——--—- -—--- - — + -— 7 


| 
i 
| 
i 
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' SOFTWARE P-TABLE 


| 
i 
| 
| 


002236 
002237 
002240 


002254 
002255 
002256 
002260 


002262 
002263 


000000 
000001 


020 
200 
004000 
000310 


000000 
000002 


160 
000 


-SBTTL SOFTWARE P-TABLE 
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; THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 


BGNSW SFPTBL 
-WORD L10001-L$SW/2 

L$SW:: 
SFPTBL: : 
CLOCK: BYTE 0 sENABLE TIME OF DAY CLOCK 
HOURS: .BYTE 0O sHOURS FOR TIME OF DAY CLOCK 
MINUTE .BYTE O ;MINUTES FOR TIME OF ne CLOCK 
SECOND YTe © ; SECONDS FOR TIME OF DAY CLOCK 
SUBSEC BYTE © ; SUBSECONDS FOR TIME OF DAY CLOCK 
CONTPA .BYTE O ;CHANGE CONTROLLER PARARMETERS 
SERREC were  f ;ENABLE ERROR CORRECTION FLAG 
SERCOR wort @ ;ENABLE ERROR RECOVERY FLAG 
PADING BYTE 1 sENABLE PAD BLOCKING 
PRNTPA BYTE 0 ;CHANGE PRINT PARAMETERS 
SOERRP .<BYTE O ;ENABLE SOFT ERROR REPORT FLAG 
RDSOER SYTE 4 sENABLE READ SOFT ERRORS ONLY 
CLRMED YTE @ ;ENABLE CLEAR MEDIA TABLE EVERY PASS 
MEDTBL -<BYTE O ;ENABLE PRINT MEDIA TABLE CONTENTS 
NOCLR: : -BYTE O sENABLE CLEAR STATS ON FATAL ERROR 
DMPFLG: : BYTE 0 ;ENABLE PROGRAM TABLE DUMP ON ERROR 
T7TBL:: ;COMMAND TABLE TOP -6 
TESTPA:: BYTE 0 ;CHANGE TEST PARAMETERS 
PATERN -BYTE .O ;CHANGE DATA PATTERN 
T3ONLY SVTE 2 ;RUN TEST 3 ONLY 
TSCMP SYTe i ;ENABLE DATA COMPARES IN TEST 5 
DMPBLUF : : .Yt #83 ; ENABLE READ BUFFER DUMP IN TEST 5 
CHGFLG:: BYTE ‘0 ;CHANGE CMD SEQ TABLE FLAG 
T7CMD1: .BYTE EW ;REWIND 

.BYTE NULPAT 

. WORD 

WORD 1 
T7CMD2: BYTE R ;WRITE RECORDS 

BYTE ALLPAT 

-WORD 2048. 

-WORD 200. 
T7CMD3: BYTE WIM ;WRITE TAPE MARK 

.BYTE | NULPAT 

. WORD 

WORD 2 
T7CMD4: .BYTE REW ;REWIND 

.BYTE NULPAT 


i 
ee ee oe ee = 


a = ee 


a me " 
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| SOFTWARE P-TABLE eaaities - = = 
| 1275 002264 000000 .WORD 0 
1276 002266 000001 "WORD 1 
1278 002270 010 T7CMDS: ‘BYTE RD ;READ RECORDS 
1279 002271 200 "BYTE ALLPAT 
1280 002272 004000 WORD 2048 
1281 002274 000310 WORD 200 
1283 002276 060 T7CMD6: BYTE SKP ;2KIP TAPE MARK 
1284 002277 000 BYTE  NULPAT 
1285 000001 WORD 
1286 002302 000002 WORD 2 
1288 002304 160 T7CMD7: BYTE W ; REWIND 
1289 002305 000 "BYTE  NULPAT 
1290 002306 000000 "WORD 
1291 002310 000001 "WORD 1 
1293 002312 177777 T7END: \WORD -1 
1294 EVEN 
1295 
1296 002314 ENDSW 
002314 L10001: 
1297 


1298 002314 ENDMOD 


EE EEE TL 


_ PROGRAM HEADER AND TABLES 


| SOFTWARE P-TABLE 


8 
pod 002314 


14 
1402 007314 


100000 
040000 
020000 
010000 
604000 


000002 
000001 


001000 


000001 


000040 
000037 
000036 
000035 


a er 


# 
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-TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


BGNMOD 


37 ENS ENS ENS ENT HENS BNA ENS ENT ANS ENS ANS ENS ENS EN ENS ANS ENS ENS ENS NS ENS BN AN EN 


SUPERVISOR DEFINED LITERALS 


§ ANT AN ANT ANT AAT NBN 7 NT NANT ANT NAN ANNAN NNN NAN AN ANN 


: THE GLOBAL EQUATES SECTION — PROGRAM EQUATES THAT 


; ARE USED IN MORE THAN ONE TEST 


EQUALS 
; BIT DIFINITIONS 


BIT15== 100000 
BIT14== 40000 
BIT13== 20000 
f  BIT12== 10000 
BIT11== 4000 
BIT10== 2000 
BITO9== 1000 
BITO8== 400 
BITO7== 200 
BITO6== 100 
BITOS== 40 
BITO4== 20 
BITO3== 10 
BITO2== 4 
BITO1== 2 
BITOO== 1 


BIT9== BITO9 
BIT8== BITO8 
BIT7== BITO7 
BIT6== BITO6 
BITS== BITOS 
BIT4== BITO4 
BIT3== BITO3 
BIT2== BITO2 
BITl== BITO1 
BITO== BITOO 


; EVENT FLAG DEFINITIONS 


;  EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


; _BIT POSITION IN SECOND STATUS WORD 
; (100000) START COMMAND WAS ISSUED 
EF .RESTART== 31. ; (040000) RESTART COMMAND WAS ISSUED 


EF .START== 32. 


EF .CONTINUE== 30. 
EF .NEW== 29. 


; (020000) CONTINUE COMMAND WAS ISSUED 


; (010000) A NEW PASS HAS BEEN STARTED 


a a | es ee ee ee ee ee -- 


SEQ 30 


oe eR ee ee ee ne ee ee 


we ee ee nee eee ee 
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| GLOBAL EQUATES SECTION 
000034 


000340 


0 
000000 


000004 
000010 
000020 
000040 
000100 
000200 
000400 
001000 
002000 
004000 
010000 
020000 
040000 
100000 
1403 


EF .PWR== 


Page 13-1 


28. 


F 3 


; PRIORITY LEVEL DEFINITIONS 


PRIO7== 340 
PRIO06== 300 
PRIOS== 240 
PRI04== 200 
PRIO3== 140 
PRIO2== 100 
PRIO1== 40 
PRIOO== 0 
OPERATOR FLAG BITS 
EVL== & 
LOT== 10 
ADR== 20 
IDU== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 


; (004000) A POWER-FAIL/POWER-UP OCCURRED 


| GLOBAL 


AREAS 


a oe 
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GLOBAL EQUATES SECTION 


000102 


040000 


000001 


000000 
000004 
000010 
000012 
000014 
000020 


000014 


000014 


G3 


5 TENA ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS EN ENS ENS ENS ENS ENS ENS ENS ENS ENS EN 
3 2.9 TMSCP COMMAND LITERALS 
BANNAN TAN ANTAN ANT ANT NAN ANNAN NANT AN BN AN ANNAN AN ANN 


; 2.1 COMMAND cane OPCODES 


;ABORT COMMAND 

F ACCESS COMMAND | 

;AVAILABLE COMMAND 

;COMPARE HOST DATA COMMAND 
DETERMINE | ACCESS PATH COMMAND 
;ERASE COMM AND 

;ERASE GAP COMMAND 
:GET COMMAND STATUS COMMAND 

:GET UNIT STATUS COMMAND 
;ONLINE COMMAND 

COMMAND 


;READ 
;REPOSITION COMMAND 
;SET CONTROLLER CHARACTERISTICS COMMAND 
;SET UNIT CHARACTERISTICS COMMAND 
;WRITE COMMAND 
;WRITE TAPE MARK COMMAND 
SEND MESSAGE FLAG 
;AVAILABLE ATTENTION MESSAGE 
;ACCESS PATH ATTENTION MESSAGE 


; COMPARE 

;CLEAR SERIOUS EXCEPTION 
;SUPPRESS ERROR CORRECTION 
;SUPPRESS ERROR RECOVERY 
;DETECT LEOT 


; IMMEDIATE 
toy ee ACCESS 


CT COUNT 

T WRITE PROTECT 

;REWI ND 

ALL “CLASS DRIVERS 

sNEXT UNIT 

s;COMMAND REFERENCE NUMBER 
;UNIT NUMBER 

; OPCODE 

;MODIFIERS 

;BYTE COUNT 


OP. ABO “4 
OP:ACC == 20 
OP:AVL == 10 
OP.CMP == 40 
OP.DAP == 13 
OP:ERS == 22 
OP.ERG == 26 
OP.GCS == 02 
OP:GUS == 03 
OP:ONL == 11 
OP:RD == 41 
OP:REP == 45 
OP.SCC == 04 
OP:SUC == 12 
OP:WR == 42 
OP:WTM == 44 
OP:END == 200 
OP:AVA == 100 
OP.ACP == 102 

; 2.2 COMMAND MODIFIERS 
MD.CMP == 040000 
MD.CSE == 020000 
MD.SEC == 001000 
MD:SER == 000400 
MD.DLE == 000200 
MD.IMM == 000100 
MD:EXC == 000040 
MD.UNL == 000020 
MD:REV == 000010 
MD.OBC == 000004 
MD:SWP == 000004 
MD:RWD == 000002 
MD:ALL == 000002 
MD:SPD == 000001 
MD:NXU == 000001 
; 2.3 GENERIC COMMAND PACKET OFFSETS 
P. CRF 0 
P/UNIT == 4 
P.OPCD == 10 
P:MOD_ == 12 
P.BCNT == 14 
P.BUFF == 20 


;BUFFER DESCRIPTOR 


; 2.4 ABORT wo 3 COMMAND STATUS OFFSETS PACKET OFFSETS 


;OUTSTANDING COMMAND REFERENCE NUMBER 


; 2.5 ONLINE AND SET UNIT CHARACTERISTICS PACKET OFFSETS 
ss 14 NIT FLAGS 


- -——— a 








———— SES LS A A A ORL em ay 


; H3 
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| GLOBAL EQUATES SECTION | 
1462 000034 P.DVPM == 34 ;DEVICE DEPENDENT PARAMETERS 
1463 000040 P.FORM == 40 sFORMAT 
pres 000042 P.SPED == 42 ; SPEED 
146 
1466 ; 2.6 REPOSITION COMMAND PACKET OFFSETS 
1467 000014 P.REDD == 14 sRECORD/OBJECT COUNT 
pe 000020 P.TMGC == 20 ; TAPE MARK COUNT | 
1470 ; 2.7 SET CONTROLLER CHARACTERISTICS PACKET OFFSETS 
1471 000014 P.VRSN == 14 ;MSCP_ VERSION 
1472 000016 P.CNTF == 16 ;CONTROLLER FLAGS 
1473 000020 P.HTMO == 20 sHOST TIMEOUT 
1474 000024 P.TIME == 24 s;QUAD-WORD TIME AND DATE 
1475 000034 P.CTPM == 34 s;CONTROLLER DEPENDENT PARAMETERS 
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| @-0oAL EQUATES SECTION 
i 1478 TENT ENS ENS ENS ENS ENS ENS ENS ENS ENS ENA ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS EN 
1479 h Be TMSCP END PACKET LITERALS 
saet $7 NIN SENT NANT EN NT BN NNT BN INN BN IN NNN NN AN ANN N 
1482 | END PACKET FLAGS 
1483 000040 EF.LOG == 000040 ;ERROR LOG GENERATED 
1484 000020 EF.SEX == 000020 ;SERIOUS EXCEPTION 
pd 000010 EF.EOT == 000010 ;EOT ENCOUNTERED 
1487 ; 3.2 CONTROLLER FLAGS 
1488 000200 CF.ATN == 000200 ;ENABL.E ATTENTION INTERUPTS 
1489 000100 CF.MSC == 000100 ;ENABLE MISCELLANEOUS ERROR LOG MESSAGES 
1490 000040 CF.OTH == 000040 ;sENABLE OTHER HOSTS ERROR LOG MESSAGES 
p44 000020 CF.THS == 000020 ;ENABLE THIS HOSTS ERROR LOG MESSAGES 
1493 ; 3.3. UNIT FLAGS 
1494 020000 UF .WPH == 020000 ;WRITE PROTECT CHARDWARE) 
1495 020000 UF.VSU == 020000 ; VARIABLE SPEED UNIT 
1496 010000 UF.WPS == 010000 ;SOFTWARE WRITE PROTECT 
1497 000200 UF.RMV == 000200 ; REMOVABLE MEDIA 
1498 000040 UF.VSS == 000040 : VARTABLE ule tee MODE SUPPRESSION 
1499 000002 UF.CMW == 000002 ; COMP ARE WRITES 
tear 000001 UF.CMR == 000001 ;COMPARE READS 
1502 ; 3.4 GENERIC END MESSAGE OFFSETS 
1503 000000 P.CRF == 0 er hl REFERENCE NUMBER 
1504 000004 P.UNIT == 4 ;UNIT NUMBER 
1505 000010 P.OPCD == 10 ;ENDCODE 
1506 000011 P.FLGS == ak ;END MESSAGE FLAGS 
1507 000012 P.STS == 12 ; STATUS 
Et4 000014 P.BCNT == 14 ;BYTE COUNT 
1510 : 3.9 pot ete # COMPARE HOST DATA,READ,REPOSITION, WRITE, - 
1511 3 AND WRITE TAPE MARK END MESSAGE OFFSETS 
1512 000034 P.POS == 34 « ;POSITION COBJECT COUNT) 
tats 000040 P.TRBC == 40 ; TAPE RECORD BYTE COUNT 
1514 
1515 s 3.6 GET COMMAND STATUS END PACKET OFFSETS 
1516 000014 P.OTRF 14 ;OUTSTANDING COMMAND REFERENCE NUMBER 
tai. 000020 P.CMST == 20 ; COMMAND STATUS 
151 
1519 "ee GET UNIT STATUS END =, OFFSETS 
1520 000014 P.MLUN 14 LTI-UNIT CODE 
1521 000016 P.UNFL == 16 ‘UNIT FLAGS 
1522 000024 P.UNTI == 24 ;UNIT IDENTIFIER 
1523 000034 P.MEDI == 34 ;MEDIA IDENTIFIER 
1524 000040 P.FORM == 40 ; TAPE FORMAT 
1525 000042 P.SPED == 42 ; SPEED 
1526 000044 P.FMEM == 44 ;FORMAT MENU 
1527 000050 P.CSVR == 50 ;sCONTPOLLER SOFTWARE VERSION 
1528 000051 P.CHVR == 51 ;CONTROLLER HARDWARE VERSION 
1529 000052 P.USVR == 52 ;UNIT SOFTWARE VERSION 
1330 000053 P.UHVR == 53 ;UNIT HARDWARE VERSION 
1532 ; 3.8 OP.ONL, OP.AVL AND OP.SUC MESSAGE OFFSETS 
1533 000044 P.MXWR == 44 ;MAXIMUM WRITE RECORD SIZE 
1534 000050 P.NREC == 50 ;NOISE RECORD 
| 


aa ee ee + 
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000014 
000020 


000014 


000024 
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REPOSITION MESSAGE OFFSETS 
14 sRECORDS SKIPPED 


se 20 ; TAPE MARKS SKIPPED 

SET CONTROLLER CHARACTERISTICS MESSAGE OFFSETS 
14 ;MSCP_ VERSION 

ae 16 ;CONTROLLER FLAGS 

os 20 sHOST T 


TIMEOU 
ss 4 ;QUAD-WORD TIME AND DATE 


—--—— ee 


ee | 


—_—_—— 


LL TT sss eats at seeesm-am = see 
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GLOBAL EQUATES SECTION 


TA Get cn ee 


ERROR LOG LITERA 


STENTS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ONSEN ENS ENON ON 
ERROR LOG MESSAGE FORMAT CODES 
000000 


000000 FM.CNT 
000001 FM.BAD == 000001 
000005 FM.TPE == 000005 
;_4.2 ERROR LOG MESSAGE FLAGS 
00 LF.SUC == 000200 
000100 LF.CON == 000100 
000001 LF.SNR == 000001 
; 4.3. TAPE FORMAT FLAG VALUES 
000001 TF.800 == 0000 
000002 TF.PE == 0000 
000004 TF.GCR == 000004 
000010 TF.BLK == 000010 
; 4.4 ERROR LOG MESSAGE OFFSETS 
000000 L.CRF 0 
000004 L.UNIT == 4 
000006 L.SEQN == 6 
000010 L.FMT == 10 
000011 L.FLGS == 11 
000012 L.EVNT == 12 
000014 L.CNTI == 14 
000024 L.CSVR == 24 
000025 L.CHVR == 25 
000026 L.MLUN == 26 
000030 L.UNTI == 30 
000030 L.BADR == 30 
00040 L.USVR == 40 
000041 L.UHVR == 41 
000042 L.LVL = 42 
00042 L.FMTD == 42 
000043 L.RTRY == 43 
000044 L.GPCT == 44 
000044 L.VSER == 44 
000044 L.PSTIN == 44 
000050 L.StI es 50 
005 L.FHVR == 50 
000051 L.FSVR == 51 
000052 L.pie & S2 
000053 L.ORVC == 53 
000054 L.OFLG == 54 
000055 L.TRK == 55 
000056 L.PBLK == 56 
006 L.LBLK == 60 
000061 L.CNTO == 61 
000062 L.CNT1 == 62 
000063 L.CNT2 == 63 
000064 L.ORVS == 64 
000066 L.RWST == 66 
000070 L.OPFL == 70 


K3 


s;CONTROLLER ERRORS 


Y_ ACCESS — WITH BUS ADDRESS 


;HOST MEMOR 
; TAPE TRANSFER ERROR 


s;OPERATION SUCCESSFUL 
;OPERATION CONTINUING 
;SEQUENCE NUMBER REQUEST 


sNRZI 800 BPI 
sPHASE ENCODED 1600 BPI 
‘GROUP. CODED RECORDING 6250 BPI 


;COMMAND REFERENCE NUMBER 
;UNIT NUMBER 
: SEQUENCE NUMBER 


VERON LOG MESSAGE FLAGS 
sEVENT CODES 

;CONTROLLER ID 

;CONTRCLLER SOFTWARE VERSION 
Pra ee HARDWARE VERSION 
sMULTI_UNIT CODE 

;UNIT ID 

;BUS_ADDRESS 

s;UNIT SOFTWARE VERSION 

;UNIT HARDWARE VERSION 
RETRY LEVEL 

sFORMAT DEPENDENT 


ETRY COUNT FOR THE CURRENT LEVEL 


‘CAP COUNT 

;VOLUME SERIAL NUMBER 

; TAPE OBJECT COUNT 

;STI INFORMATION 

sFORMATTER HARDWARE VERSION 
sFORMATTER SOFTWARE VERSION 
;CONTROLLER INTERNAL STATUS 
s;DRIVE ERROR CODE 

;DRIVE STATE FLAGS 

;LOGICAL TRACK NUMBER 
PHYSICAL BLOCK NUMBER 
;LOGICAL io NUMBER 

; TAPE COUN 


: E 
sREAD/WRITE STATE 
;OPERATION FLAGS 


me me eo -——“‘i‘“_“_“_O_O 


SEQ 36 


ee ee 
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GLOBAL EQUATES SECTION 

1603 3.4.5 STATUS AND EVENT CODES 

1604 000037 ST.MSK == 37 s;STATUS/EVENT CODE MASK 

1605 000040 ST.SUB == 40 ;SUB-CODE MULTIPLIER 

1606 000000 ST.SUC == 0 ;SUCCESS 

1607 000001 ST.CMD == 1 sINVALID COMMAND 

1608 000002 ST.ABO == 2 ;COMMAND ABORTED 

1609 000003 ST.OFL == 3 ;UNIT-OFFLINE 

1610 000004 ST.AVL == 4 ; UNIT-AVAILABLE 

1611 000005 ST.MFE == 5 sMEDIA FORMAT ERROR 

1612 000006 ST.WPR == 6 :WRITE PROTECTED 

1613 000007 ST.CMP == 7 ;COMPARE ERR 

1614 000010 ST.DAT == 10 ;DATA ERROR 

1615 000011 ST.HST == 11 ;HOST BUFFER ACCESS ERROR 

1616 000012 ST.CNT == 12 s;CONTROLLER ERROR 

1617 000013 ST.ORV == 13 ;DRIVE ERROR 

1618 000014 ST.FNT == 14 ;FORMATTER ERROR 

1619 000015 ST.BOT == 15 ;BOT ENCOUNTERED 

1620 000016 ST.1™M == 16 ; TAPE MARK ENCOUNTERED 

1621 000020 ST.RDT == 20 sRECORD DATA TRUNCATED 

1622 000021 ST.POL == 21 :P0S 

1623 000022 ST.SEX == 22 ;SERIOUS EXCEPTION 

1624 000023 ST.LED == 23 ;LEOT DETECTED 

1625 000037 ST.DIA == 37 s; INTERNAL DIAGNOSTIC MESSAGE 

pe 000400 ST.ONL == 400 s;UNIT ALREADY ONLINE 

1628 000010 EV.LGP == 10 ;LONG GAP es 

1629 000050 EV.DST == 50 ;DATA SYNC TIMEOU 

1630 000052 EV.CTO == S2 COMM CHANNEL TIMEOUT 

1631 000053 EV.SRT == 53 ;DRIVE COMMAND TIMEOUT 

1632 000113 EV.SRI == 113 ela DECTECTED TRANSMISION ERROR 

1633 000150 EV.COR == 150 ;CORRECTABLE ERROR 

1634 000152 EV.IOS == 152 INTERNAL INCONSISTENCY ERROR 

1635 000153 EV.SER == 153 ; SOFT ae OR 

1636 000213 EV.HER == 213 sHARD E 


RROR 
1637 000350 EV.URE == 350 sUNRECORVERABLE DATA ERROR 


ee ee ee ee ee eee ee re + ee 


—— oo 
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GLOBAL EQUATES SECTION 
1639 "i. pom tivea ae 
1640 ; 5.0 PROGRAM DEFINED LITERALS 
teas 1 /@\7@\/6\78\/6\/4\78\/ 0\76\/ 67 #\/8\/8\/8\/ 8\/ 8\/8\/ ON 8\/ 8 8\/ 0 /8\/ 0% 
164 
1643 ; 5.1 KSA BIT DEFINITIONS 
1644 100000 ERR ss 100000 ;ERROR 
1645 004000 $1 ss 004000 ;STEP 1 
1 ss 000001 ;G0 
rot 111400 TKINIT == 111400 ;TKSO STEP 1 RESPONSE 
1649 ; 5.2 ORIVE IN USE TABLE BIT DEFINITIONS 
1650 000001 AvB ;DRIVE AVAILABLE 
1651 000002 NRDY ss 000002 ORIVE NOT READY 
1652 000004 EOT ss 000004 ;ORIVE AT EOT 
1653 000010 DROP ss 000010 ;DORIVE DROPPED 
tn 000020 FAIL ss 000020 ;DRIVE FAILED 
1656 , 5.3 I/0 STATUS MESSAGES , 
1657 000000 IONORM == 0 ;SUCCESSFUL COMMAND TRANSMISSION 
1658 100000 NURESP == BITiS ;NEW RESPONSE RECEIVED 
1659 040000 ERRLOG == BIT14 ;ERROR LOG PACKET RECEIVED 
1660 020000 IOICRD == BIT13 s INSUFFICIENT CREDIT TO POST COMMAND 
1661 1 CMOLST == is GCS RESPONSE NEVER CAME BACK 
1662 000002 IOHUNG == Za CONTR OLLER HUNG 
1663 000003 IOPORE == 3. :PORT DETECTED ERROR 
1664 000004 IOTIME == 4. ;CONTROLLER TIME OUT 
1665 000005 MISSEQ == 3. ;COMMAND RETURNED IN WRONG SEQUENCE 
1666 000006 INTERR == 6. sERROR DURING INITIALIZATION 
pod 000007 ILLCMD == 7 ;ILLEGAL COMMAND 
1669 ; 5.4 RESPONSE CONDITION CODES 
1670 000001 UCCE 000001 ;RESPONSE HANDLED SUCCESSFULLY 
1671 000002 SEREXC == 000002 ;SERIOUS EXCEPTION CONDITION 
1672 ORT =s 000 ;SYSTEM FATAL ERROR ABORT PROGRAM 
1673 
1674 , 3.35 U/Q PORT LITERALS 
1675 100000 BIT1 sDESCRIPTOR OWNERSHIP BIT 
1676 040000 FLAG ss BIT14 ;sDESCRIPTOR INTERUPT FLAG BIT 
gt 000200 IMM == BIT07 ; IMMEDIATE COMMAND FLAG 
16 
1679 ; 5.6 PROGRAM LITERALS 
1680 177546 KWCSR ss 177546 ;LINE CLOCK REGISTER ADDRESS 
1681 001233 RS1 ss 1233 ;RANDOM GENERATOR SEED 
1682 007622 RS2 ss 7622 ss GENERATOR SEED 
1683 000000 RS3 ss RANDOM GENERATOR SEED 
1684 000000 NULPAT == 0 :NO DATA PATTERN NEEDED 
1685 000000 RNDOBYT == ;RANDOM BYTE COUNT 
1686 020000 MAXBUF == 8192 ;MAXIMUM BUFFER SIZE 
1687 000024 MINBUF == 20 ; MINIMUM BUFFER SIZE 
1688 RNDITR == ;RANDOM ITERATION COUNT 
1689 003720 MAXITR == 2000 ;MAXIMUM ITERATION SET 
6 000144 MINITR == 100 ;MINIMUM ITERATION SET 
1691 000001 PATI ss 1 ;ALL 1'S DATA PATTERN 
1692 000002 PAT2 == ;ALL O'S DATA PATTERN 
1693 000003 PAT3 ss 3 ;WORST CASE MFM DATA PATTERN 
1694 0000 PAT4 == 4 sALTERNATING 1‘S AND O'S 
1695 000005 PATS == 5 ; RANDOM DATA PATTERN 


SEQ 38 


N3 
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696 000006 PAT6 ss 6 31110 REPEATING PATTERN 
1697 000007 PAT7 dd 7 ; COMBINATION an tine 3 AND 5 
1698 000010 ENDPAT == 8. RANDOM PATTERN VALUE ’ 
1699 000200 ALLPAT == 200 sCYCLE THROUGH ALL PATTERNS 
1700 000002 UNTSTP == 2 ;STEP THROUGH UNITS 
1701 000000 HSTIMO == 0 ;HOST TIMEOUT ap. 
1702 000000 MSCPVR == 0 sMSCP_ VERSION NUMBER 
1703 177776 LOBYTE == -2 ;LOW BYTE OFFSET FOR COMPARE DATA 
1704 177777 HIBYTE == -1 ;HIGH BYTE OFFSET FOR COMPARE DATA 
1705 004716 se 2510. RECORDS TO FILL 2 TRACKS 
1706 ss 4 ;VALUE USED _IN SUBITR 
fad 000001 ONE se 1 ;BYTE OFFSET 
1709 ;.5.7 ERROR MASKING LITERALS 
1710 000001 LEDB ee 000001 sDETECT hcSrce. END OF TAPE 
1711 000002 ROTB ss 000002 sRECORD DATA TRUNCATED 
1712 000004 SEXB se 000004 :SERIOUS EXCEPTION 
1713 000010 TMB se 000010 sENCOUNTERED TAPE MARK 
1714 000020 WPRB ss 000020 nae wo MS PROTECTED 
1715 000040 AVLB ee 000040 UNIT AVAILABLE 
1716 000100 ONLB ss 000160 ;UNIT ONLINE 
1718 ; 5.8 ERROR TYPE LITERALS 
1719 000000 SYSFAT == 0 SYSTEM FATAL ERROR 
1720 000001 DEVFAT == 1 sDEVICE FATAL ERROR 
1721 000002 H ss 2 sHARD DEVICE ERROR 
1722 000003 SOFT ss 3 ;SOFT DEVICE ERROR 
1753 000004 STATUS == 4 STATUS MESSAGE 
1725 ; 5.9 BIT VALUES FOR LUN FLAG 
1726 000001 INTOON == 000001 sEME TEM LEAT HAS BEEN DONE ON THIS UNIT 
1727 000002 SEREXC == 000002 A SERIOUS EXCEPTION CONDITION EXITS 
1728 000004 NOTALY == 000004 DON’ T TALLY BYTES FOR THIS COMMAND 
1729 000010 EOTPR == 000010 ;EOT PRINTED FOR THIS UNIT 
1730 000020 ODDFLG == 000020 ;000 BYTE COUNT FLAG 
1731 000040 MTBLOV == 000040 sMEDIA STATS OVERFLOW FLAG 
1738 000100 ECCFLG == 000100 ;DON’T DECREMENT ECC COUNT FLAG 
1734 ;PROGRAM CONTROL FLAG BIT VALUES 
1735 000001 T7BRFL == 000001 ;BRANCH FLAG FOR TEST 7 
1736 000002 NCLKFL == 000002 ;NO CLOCK PRESENT FLAG 
1737 000004 TCNTFL == 000004 ;COUNT RECOR o AND TAPE MARKS FLAG 
1738 000010 DRERFL == 000010 ;DRIVE ERROR FLAG 
1739 000020 GCSCFL == 000020 ;GET COMMAND STATUS COMMAND FLAG 
1740 000040 GCSRFL == 000040 ;GET yo ND STarye RESPONSE FLAG 
1741 000100 NOMDTB == 060100 ;DON'T PRINT MEDIA DEFECTS FLAG 
1742 000200 CMDONE == 000200 ;ALL COMMANDS ISSUED FLAG 


1743 000400 DROPIT == 000400 ;DRIVE BEING DROPPED 


a ie ee 





eee se a 
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001210 


000026 
000030 
000036 


ch aan ee 
3; 6. 
S7ENSENS ONS ENS ENS OENS ONS ENS ONSEN ONS ENS ENS ENS ONSEN ONSEN ONS ONS ONS ONS ON ON 


; 6.1 TEST TABLE OFFSETS 
CMD ee 0. s;COMMAND PRIMITIVE OFFSET 
DATPAT == 3. ;DATA PATTERN 


ITMCNT == 2. sITEM (BYTE) COUNT OFFSET 

ITRCNT == 4. ITERATION COUNT OFFSET 

TSTSTP == 6. ;USED TO STEP THROUGH TEST TABLES 
; 6.2 PROGRAM COMMAND BUFFER OFFSETS 

CMD ee 0 s;COMMAND PRIMITIVE OFFSET 

ITMOFF == 2. SITEM (BYTE) COUNT OFFSET 

OBOFFL == 4. ;LOW ORDER OBJECT COUNT 

OBOFFH == 6. sHIGH ORDER sr COUNT 

XFERST == 8. ; TRANSFER STATUS 

BUFOFF == 10. ; COMMAND he ADDRESS 

PCBSTP == le. ;STEP TO NEXT SLOT 

PCB3SP == 36. 33 STEPS 

3 6.3 TMSCP DRIVER BUFFER OFFSETS 

HIADDR 2. sDESCRIPTOR ADDRESS OFFSET 

CONID == -1. ;COMMAND/RESPONSE CONNECTION TYPE I.D. 
CRD es -2. ;COMMAND/RESPONSE CREDIT LIMIT OFFSET 
MSGLEN == -4, ;COMMAND/RESPONSE MESSAGE LENGTH 
DRBSTP == 68. sRESPONSE PACKET SIZE (WORDS) 
DCBSTP == 40. cen PACKET SIZE (WORDS) 
DCB3SP == 120. 3 COMMAND PACKET SIZE 

DSPSTP == 4. SPORT DESCRIPTOR SIZE 

; 6.4 MEDIA sisi! “otcites TABLE OFFSETS 

TRK ; TRACK NUMBER 

PHB es : ;PHYSICAL BLOCK NUMBER 

SWR Be a ;SOFT WRITE ERROR 

SRD ss 5 ;SOFT READ ERROR 

HWR ss 6 sHARD WRITE ERROR 

HRD se s;HARD READ ERROR 

U10FF == 2592. ;OFFSET FOR 1 UNIT 

U2O0FF == 1296. ;OFFSET FOR 2 UNITS 

U30FF == 864. ;OFFSET FOR 3 UNITS 

U40FF == 648. ;OFFSET FOR 4 UNITS 

; 6.6 DRIVE STATUS CODES 

ECCOC == 26 sECC CORRECTION ON DATA BLOCK 

ECCTC == 30 sECC CORRECTION ON A TAPE MARK 

eccec == 36 ;CRC ERROR ON ECC BLOCK 


ee ee a ee eee ee 


ti a 


SEQ 40 
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; 6.7 LUN TABLE OFFSETS 
000000 TKIP == 0 
000002 TKSA ss 2 
0004 TKUNIT == a 

000006 CMDSEQ == 

000010 SLTUSE == 10 
000012 CMDSSV == l2 
000014 CNUSAV == 14 

01 COLSAV == 16 

000020 RNUSAV == 20 
000022 ROLSAV == 22 

00024 PATSAV == 24 
000026 LG == 26 
000030 LEOTFL == 30 
000032 UNDROP == 32 
000034 OBJFOL == 34 
000036 OBJFDH == 36 

00040 SIREAD == 40 
000042 S2READ == 42 
000044 S1WRIT == 44 
000046 S2WRIT == 46 
000050 ECICOR == 50 
000052 EC2COR == S2 
000054 HIREAD == 54 
000056 H2READ == 56 
000060 HIWRIT == 60 
000062 H2WRIT == 62 
000064 RTYEC1] == 64 
000066 RTYEC2 == 66 
000070 DTCPER == 70 
000072 UNDRUN == 72 
000074 OVRRUN == 74 
000076 RMSPOS == 76 
000100 WMSPOS == 100 
000102 OTHER == 102 
00104 DROPPD == 104 
000106 NOERR == 106 
000110 ROBYT1 == 110 
000112 ROBYT2 == 112 
000114 ROBYT3 == 114 
000116 RDBYT4 == 116 
000120 WRBYT1 == 120 
000122 WRBYT2 == 122 
000124 WRBYT3 == 124 
000126 WRBYT4 == 126 
000130 TBLTOP == 130 
000132 TBLBTM == 132 
000134 LSTENT == 134 
000136 SED1 se 136 
000140 SED2 ss 140 
000142 SED3 ss 142 
000144 SEEDl == 144 
000146 SEED2 === 146 
000150 SEED3 == 150 
000152 OLDBLK == 152 
000154 OLDTRK == 154 





C4 


es a ee 


SEQ 41 


;IP REGISTER ADDRESS 

;SA REGISTER ADDRESS 

sTMSCP DEVICE UNIT ap 0 
;COMMAND REFERENCE NUMBER 

;BIT MAP OF RESPONSES RECEIVED 
;COMMAND DESCRIPTOR 

;NEW COMMAND BUFFER POINTER 
;0LD COMMAND BUFFER POINTER 
;NEW RESPONSE BUFFER POINTER 
;0LD wa eas BUFFER POINTER 
;DATA PATTERN 


A 
INITIALIZATION FLAG 
;UNIT LOGICAL oa OF TAPE FLAG 
UNIT DROF COUN 
s;OBJECT COUNT LOW ORDER 


nw 
Oo 
nN 
“+ 
p*] 
m 
> 
o 
m 
xz 
3 
be] 
- 
=x 
Z 
J 
tr 


;SOFT WRITE ERROR CHANNEL 1 
;SOFT WRITE ERROR CHANNEL 2 
sECC CORRECTABLE CHANNEL 1 
oe CORRECTABLE CHANNEL 2 
ARD READ ERROR CHANNEL 2 


sHARD WRITE ERROR CHANNEL 1 

sHARD WRITE ERROR CHANNEL 2 

sCRC ERROR ON ECC BLOCK CHANNEL 1 
sCRC ERROR ON ECC BLOCK CHANNEL 2 
;DATA COMPARE ERROR 

;DATA UNDERRUN 

;DATA OVERRUN 

sREAD MISPOSITION ERROR 

sWRITE MISPOSITION ERROR 

;OTHER ERRORS 

;TIMES UNIT WAS DROPPED 

;NO ERROR 


;HUNDREDS BYTES READ 


;MILLIONS BYTES WRITTEN 
sBILLIONS BYTES WRITTEN 


3 TABLE 

;FIRST FREE SLOT IN MEDIA STATS TABLE 
;PRIME RANDOM GENERATOR SEED 

;PRIME RANDOM GENERATOR SEED 

sPRIME RANDOM GENERATOR SEED 

sRANDOM GENERATOR SEED 

;RANDOM GENERATOR SEED 

RANDOM GENERATOR SEED 

sSAVE OF LAST BLOCK IN ERROR 

;SAVE OF LAST TRACK IN ERROR 


+ ee eee cee ee ed 


TT TT TT LS Ss sa sea sen e-em 


| GLOBAL AREAS 
GLOBAL EQUATES SECTION 
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000156 
000160 
000162 
000164 
000166 
000170 
000172 


LUNSTP 








D4 


sSTART OF THIS UNITS RESPONSE BUFFER 
sEND OF THIS UNITS RESPONSE BUFFER 
START OF THIS UNITS RESPONSE sthinton a ~ os 


; RI 
sSTART OF THIS UNITS COMMAND DESCRIPTOR RING 
;END OF THIS UNITS COMMAND DESCRIPTOR RING 
;OFFSET TO NEXT LUN BLOCK 


EE ee 


— de a ome ce a eee 


E4 


cainiainitsiaiidiieeainiall 
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1861 57 ENT ENT ENS ENT RNA ENS ENS ENS ENS ENS ENS ENS ENS ENS ANS ANS ENS ANT ENS ENS ANS AN AN AN 

1862 ; 7.0 PROGRAM PRIMITIVES 

pet 57 ENA ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS EN AN 

1865 i Tol Cone PRIMITIVE LITERALS j 

1866 000000 NUL 000 ;NULL 

1867 000010 RD == 010 ;READ | 

1868 000011 ROR == 011 i READ REVERSE | 

1869 000020 WR == 020 ;WRIT E 

1870 000030 CMP == 030 ; COMPARE HOST DATA | 

1871 000031 CMR == 031 ;COMPARE HOST DATA REVERSE j 

1872 000040 ACC == 040 3 SS 

1873 000041 ACR == 041 ;ACCESS REVERSE 

1874 000050 SPC == 050 ;SPACE RECORDS 

1875 000051 SCR == 051 ;SPACE RECORDS REVERSE 

1876 000052 ScD BS 052 ;SPACE TO LEOT 

1877 000060 SKP == 060 ;SKIP TAPE MARKS 

1878 000061 SKR == 061 ;SKIP TAPE MARKS REVERSE 

1879 000062 SKD == 062 ;SKIP TO LEOT 

1880 000070 SPO == 070 ;SPACE OBJECTS 

1881 000071 SPR == O71 ; SPACE ne gk REVERSE 

1882 000100 WT™M == 100 ;WRITE TAPE MARKS 

1883 000110 ERS == 110 ;ERASE 

1884 000113 ERI ss 113 ; ERASE IMMEDIATE 

1885 000120 ERG == 120 ;ERASE GAPS 

1886 000130 AVL BS 130 ; AVAILABLE 

1887 000134 AVU == 134 ; AVAILABLE UNLOAD 

1888 000140 ONL == 140 ; ONLINE 

1889 000150 SuC == 150 SET UNIT CHARACTERISTICS 

1890 000155 SUW == 155 ;SET UNIT CHARA. W/WRITE PROTECT 

1891 000160 REW == 160 ;REWIND 

1892 000163 RWI == 163 ;REWIND IMMEDIATE 

1893 000170 INT == 170 ; INITIALIZATION 

1894 000200 ABO Bs 200 ABORT 

1895 000210 GCS == 210 ‘GET COMMAND STATUS 

1896 000220 GUS == 220 ;GET UNIT STATUS 

ines 000230 scc == 230 ;SET CONTROLLER CHARACTERISTICS 

1 

1899 ef : COMMAND PRIMITIVE MODIFIER LITERALS 

1900 000001 REVBIT == 1 ;REVERSE MODIFIER 

1901 000002 EQTBIT == 2 ;DETECT LEOT MODIFIER 

1902 000003 IMMBIT == 3 ; IMMEDIATE MODIFIER 

1903 000004 UNLBIT == 4 ;UNLOAD MOIFIER 

1904 000005 WPRBIT == > ;WRITE PROTECT MODIFIER 
| 
| 
| 
| 
| 
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000000 
000000 
1916 002472 004032 
005072 
010232 
010272 
010272 
010312 


000000 
000000 
005072 
006132 
010316 
010356 
010356 
010376 


000000 
000000 
006132 
007172 
010402 
010442 
010442 
010462 


000000 
000000 
007172 
010232 
010466 
010526 
010526 
010546 


| 
1913 
| 


1941 003072 
1942 003162 
1943 003250 
1944 003252 
1945 003254 
1946 003256 
1947 003260 
1948 003262 


1951 003264 
1953 003344 


1954 003350 
1955 003360 


003344 


1958 003400 
1959 003402 
1960 003404 
1961 003406 
1962 003410 
1963 003412 


000000 
000000 
000000 
000000 
000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 


000000 
000000 
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57 ENA ENS ENS ENS ENS ENS ENS RNS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS EN EN 
; 8.0 PROGRAM AND DRIVER DATA STRUCTURES 
5 TENA ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ANS ENS ENS ENS EN 


; 8.1 UNIT LUN BLOCKS 
LUNO: : . WORD 


COSRG1 


COSRG3 
CDREN3 


LUN1:: . WORD 
LUN2:: . WORD 

LUN3: : . WORD 

; 8.2 PROGRAM COMMAND BUFFERS 
PCMDBF : : -BLKW 24. 
PCBEND==. 

DUMPKT: : .BLKW 
DRINUS: : .BLKW 
UNTTBL: : .BLKW 

; 8.3 PROGRAM VARIABLES 
CMDCNT:: . WORD 
RSPCNT WORD 
COUNT WORD 
RESPON: : . WORD 
BRCNT:: WORD 
HNDLRP: : WORD 


;PROGRAM COMMAND RING 
;PROGRAM COMMAND RING END 
;PROGRAM DUMMY COMMAND PACKET 
;DRIVE IN USE TABLE 

;TEMPORY MEDIA STAT STORAGE 


;COMMAND COUNT 
;RESPONSE COUNT 
;COMMAND LOOP COUNTER 
sRESPONSE STATUS 
;BRANCH COUNTER 
;NUMBER OF RESPONSES 


‘ 
LL —— TL LL LL. Tt Lc LL LLL LLL LLL LLL LLL LL LOL LL ELLE 


| GLOBAL AREAS 


ee ae eee ee 
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5 
1976 003436 
1977 003440 
1978 003442 


1980 003444 
1981 003446 


1983 003472 
1984 003516 


1986 003520 
1987 003522 
1988 00352 

1989 003826 


1991 003530 


io 003540 
1997 003542 


cone 003552 


2003 003554 
2004 003556 
2005 003560 
2006 003562 
ved 003564 


000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 


000000 
000000 
000000 


000000 
003472 
000000 
000000 


000000 


000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 
000000 


000000 
000000 
000000 
000000 

000 





SAVDIF:: 
TSTMSK: : 
WRKMSK: : 
CMPERR: : 
BYTADD:: 
PCFLAG: : 


OBJECT: : 
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ooo o°oCcoo coCoCCoOoO 


ooooo SCOCOOD SCCOCOSCO CCCOO OF FO 


o oOo 


SEQ 45 


s;DRIVER RESPONSE COUNT 
;BYTE COUNT 
; ITERATION 


COUNT 
;COMMAND BUFFER ADDRESS 
;SUB-ITERATION COUNT FOR DATA COMPARES 


;USED BY RANGEN 

;SEED WORK LOCATION 
;SEED WORK LOCATION 
;SEED WORK LOCATION 


;COMMAND AND RESPONSE COUNT DIFFERENCE 
;TEST LOAD WITH ACCEPTABLE ERROR CODES 
;USED BY ERROR DECODE 


s;NUMBER OF BYTES IN ERROR 

sSAVE TABLE FOR BYTE IN ERROR ADDRESS 
;END OF BYTE ADDRESS TABLE 

;SAVE TABLE FOR BYTE IN ERROR DATA 
;PROGRAM CONTROL FLAGS 


;OBJECT COUNTER FOR TEST 2 
PASS COUNTER 

s;NUMBER OF DROPPED UNITS 
sCOUNT OF UNITS AT EOT 


;USED FOR TEMP STORAGE 
;USED FOR TEMP STORAGE 
;USED FOR TEMP STORAGE 
;USED FOR TEMP STORAGE 
;USED FOR TEMP STORAGE 


sSERIOUS EXCEPTION CMD REF # 
sMEDIA ERROR TABLE OFFSET 
sNUMBER OF RECORDS 

sNUMBER OF TAPE MARKS 

;LOW ORDER HEX DIGIT 


sHIGH ORDER HEX DIGIT 
sEVENT CODE STORAGE 
SAVE LOCATION FOR R3 
;SAVE LOCATION FOR R4 
sNUMBER OF DAYS IN RUN 


—— = ee ce ee 


H4 
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2019 003756 


0 
2021 004026 
2022 004032 
2023 004032 


4 
2025 005066 
2026 005072 
2027 005072 


8 
2029 006126 
2030 006132 
2031 006132 


2033 007166 
2034 007172 
434 007172 


STENT ENS ENS ENA ENS ENA ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS EN 
; 9.0 TMSCP CLASS AND PORT DRIVER DATA STRUCTURES 

7 ENS ENS ENS ENS ENS ENS ENS ENA ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS ENS EN EN 
; 9.1 CLASS DRIVER BUFFERS 
CMDBF 1: : .BLKW e ;DRIVE COMMAND BUFFER 1 


DCMDBF BLKW 18 ;DRIVER COMMAND BUFFER 

CMDBF 2 BLKW 20 ;DRIVE COMMAND BUFFER 2 

CMDBF3: : -BLKW 20. ;DRIVE COMMAND BUFFER 3 

CMDBF4: : -BLKW 20. ;DRIVE COMMAND BUFFER 4 

RSPBFO: : -BLKW 2. ;TOP 4 LOCATIONS OF RESPONSE BUFFER UNIT 0 
DCBEND: : ;END OF COMMAND BUFFER 

DRSPBO: : -BLKW 270. ;DRIVER RESPONSE BUFFER UNIT 0 

RSPBF 1: : -BLKW 2. ;TOP 4 LOCATIONS OF RESPONSE BUFFER UNIT 1 
DRBENO: : ;END OF RESPONSE BUFFER UNIT 0 

DRSPB1: : -BLKW 270. ;DRIVER RESPONSE BUFFER UNIT 

RSPBFe: : -BLKW 2. ;TOP 4 LOCATIONS OF rex at BUFFER UNIT 2 
DRBENIL: : ;END OF RESPONSE BUFFER UNIT 1 

DRSPBe: : -BLKW 270. ;DRIVER RESPONSE BUFFER UNIT 2 

RSPBF3: : -BLKW 2. ;TOP 4 LOCATIONS OF RESPONSE BUFFER UNIT 3 
DRBEN2: : sEND OF RESPONSE BUFFER UNIT 2 

DRSPB3: : -BLKW 270. ;DRIVER RESPONSE BUFFER UNIT 3 


| 
| GLOBAL AREAS 
| 


2044 010312 
2046 010312 


2050 010376 
2052 010376 


2056 010462 


2058 010462 
2059 010466 
2060 010526 
2061 010526 
2062 010546 


2065 010546 


2071 010562 


2 
2073 010564 
2074 010566 
2075 010570 
core 010571 


ee ee 


14 
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000000 
177777 
000000 
000000 
000000 
000000 
000120 


000000 
000000 
000 
004 


; 9.2 U/Q PORT DESCRIPTOR RINGS 
DSRNGO: : -BLKW 2. ;DESCRIPTOR RING UNIT 0 


DRBENS: : ;END OF RESPONSE BUFFER UNIT 3 

RDSRGO: : -BLKW 16. ;RESPONSE DESCRIPTOR RING UNIT 0 

RDRENO: : ;END OF RESPONCE DESCRIPTOR RING UNIT 0 

COSRGO: : -BLKW 8. ;COMMAND DESCRIPTOR RING UNIT 0 

CDRENO: : ;END OF COMMAND DESCRIPTOR RING UNIT 0 

DSRNG1: : -BLKW 2. ;DESCRIPTOR RING UNIT 1 

RDSRG1: : -BLKW 16. i ok DESCRIPTOR RING UNIT 1 

RDREN1: : ;END 0 se htacnteT oh RING UNIT 1 

COSRG1: : -BLKW 8. COMMAND DESCRIPTOR RING UNIT 1 

COREN1: : ;END OF COMMAND DESCRIPTOR RING UNIT 1 

DSRNG2: : -BLKW 2. ;DESCRIPTOR RING UNIT 2 

RDSRG2: : -BLKW 16. ;RESPONSE DESCRIPTOR RING UNIT 2 

RDREN2: : ;END OF RESPONCE DESCRIPTOR RING UNIT 2 

COSRG2: : -BLKW 8. ;COMMAND DESCRIPTOR RING UNIT 2 

CDOREN2: : ;END OF COMMAND DESCRIPTOR RING UNIT 2 

DSRNG3: : -BLKW 2. ;DESCRIPTOR RING UNIT 3 

RDSRG3: : -BLKW 16. ;RESPONSE DESCRIPTOR RING UNIT 3 

RDRENS: : ;END OF RESPONCE DESCRIPTOR RING UNIT 3 

COSRG3: : -BLKW 8. ;COMMAND DESCRIPTOR RING UNIT 3 

CORENS: : ;END OF COMMAND DESCRIPTOR RING UNIT 3 

3 9.3 CLASS AND PORT DRIVER VARIABLES 

IOSTAT: WORD 0O 31/0 STATUS 

CMSTSV: : “WORD -1 ;COMMAND STATUS FROM GCS MODE 

GCSREF: : -WORD 0O ;GCS COMMAND REFERENCE NUMBER 

CNTHI: : -WORD 0O ;VALUE OF THE HIGH TIMEOUT 

TIMER: : -WORD 0O ; TIMER VALUE 

LOOPS: : -WORD 0O ; 

CNTFLG:: “WORD CF.THS!CF.MSC _; CONTROLLER FLAGS(ENABLE THIS HOSTS 
;AND MISCELLANEOUS ERROR LOG MESSAGES) 

PCKSIZ: : -WORD 0 ;PACKET SIZE IN BYTES 

SAERR: : -WORD O ;SA REGISTER SAVE ON ERROR 

MINLIM: : -BYTE 0O sMINIMUM REQUIRED CREDIT LIMIT 

ee BYTE 4 ;DRIVER CREDIT LIMIT 


ee 


‘ 
-4 


“GLOBAL AREAS 
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2080 
2081 
eons 


010572 


010600 
7 


010602 
010603 
010604 
010606 
010610 
010612 
010613 
010614 


010616 
010620 


010622 


010632 
010633 
010634 
010636 
010640 


010642 
010643 
010644 
010646 


010650 
* 


010652 
010653 
010654 
010656 
010660 


010662 
010663 
010664 
010666 
010670 


010672 
010673 
010674 
010676 
010700 


ee ee ee 
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013272 


000002 
012246 
013272 
001 
102 
000003 
012266 
013272 
001 
102 
000004 


012312 
013272 


012347 


013272 


001 
102 
000007 
011502 
013272 
001 


102 
000010 
011525 
013272 


011541 
013272 


J4 


; I/0 STATUS ERROR INFORMATION TABLE 


IOERTB::.BYTE DEVFAT 
-BYTE OTHER 
-WORD 1 
WORD CMLSER 
WORD DEVERR 
-BYTE  DEVFAT 
.BYTE OTHER 
WORD 2 
.WORD HUNGER 
.WORD DEVERR 
.BYTE DEVFAT 
BYTE OTHER 
-WORD 3 
.WORD PORTER 

WORD - DEVERR 
.BYTE DEVFAT 
BYTE OTHER 
WORD 4 

WORD TIMERR 
WORD DEVERR 
-BYTE  DEVFAT 
BYTE OTHER 
WORD 5 

WORD SEQER 
WORD DEVERR 
.BYTE  DEVFAT 
BYTE OTHER 
WORD 6 

WORD INITER 
WORD DEVERR 

CMDT:: .BYTE  DEVFAT 
.BYTE OTHER 
WORD 7. 
WORD CMDER 
WORD DEVERR 

ABOT:: .BYTE  DEVFAT 
.BYTE OTHER 
WORD ‘8. 
WORD ABOER 
WORD DEVERR 

OFLT:: .BYTE DEVFAT 
.BYTE OTHER 
WORD 9. 
WORD OFLER 
WORD DEVERR 


en —---—— oo 


; GET COMMAND STATUS FAILED 


; CONTROLLER HUNG 


- 


; PORT DETECTED ERROR 


; PROGRAM DETECTED COMMAND TIMEOUT 


; COMMAND SEQUENCE ERROR 


; ERROR DETECTED DURING INIT 


; INVALID COMMAND ISSUED 


;COMMAND ABORTED 


UNIT OFFLINE 


ee 


GLOBAL AREAS 
GLOBAL DATA SECTION 


010724 


54 010730 


010732 


010740 


010742 
010743 


64 010744 


010746 


66 010750 


010752 
010753 
010754 
010756 
010760 


010762 


010770 


010772 
010773 
010774 
010776 
011000 


86 011002 


011003 


011010 


011012 
911013 
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0000 
012135 


011603 


013272 


002 
106 


000016 
011630 
013272 


012165 


0000 
011715 


013272 


001 
102 


ee ee ee 


AVLT:: 


IvSTi:: . 
.B 


WPRT:: 


CMPT:: 


DATT:: 


HSTT:: 


CNTT:: 


DRVT:: 


FMTT:: 


BOTT:: 


IK4 


Page 25-1 


DEVF AT sUNIT AVAILABLE ERROR 
OTHER 


10. 

AVLER 

DEVERR 

DEVF AT s;INVALID STATUS RETURNED 
OTHER 

11. 

IVSER 

DEVERR 

DEVFAT s;UNIT WRITE PROTECTED 
OTHER 

le. 

WPRER 

DEVERR 

HARD ;DATA COMPARE ERROR 
DTCPER 

43. 

CMPER 

DEVERR 

HARD ;DATA ERROR 

NOERR 

14. 

DATER 

DEVERR 


DEVFAT sHOST DETECTED TIMEQUT 
OTHER IMEQU 
15. 

HSTER 

DEVERR 

DEVF AT sCONTROLLER ERROR 
OTHER 

16. 

CNTER 

DEVERR 

DEVFAT ;DRIVE ERROR 
OTHER 

17. 

DRVER 

DEVERR 

DEVF AT sFORMATTER ERROR 
OTHER 

18. 

FMTER 

DEVERR 


DEVFAT UNEXPECTED BOT ENCOUNTERED 
OTHER 


SEQ 49 


GLOBAL AREAS 


MACRO YOS.02 Thursday 18-Apr-85 13:37 
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2194 011014 
2195 011016 
2196 011020 
2198 011022 
2199 011023 
2200 011024 
2201 011026 
2202 011030 


2204 011032 


ccee 011070 


2228 011072 
2229 011073 


34 
2235 011103 
36 


2250 011130 


000023 
011751 
013272 


013272 


001 
102 
000025 
012135 
013272 


001 
102 
000026 
012017 
013272 


045 
013272 
001 


0000 
012063 
013272 
001 
102 
000031 


012105 
013272 


001 
102 
000032 
012135 
013272 


0000 
012507 


TMT:: 


IvST2:: . 
.B 


RDTT:: 


POLT:: 


SEXT:: 


LEDT:: 


IVST3:: . 


DCMPT:: . 


RLST:: 


L4 
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19. 
BOTER 
DEVERR 


DEVFAT s;UNEXPECTED TAPE MARK 
OVER ENCOUNTERED 
20. 

TMER 

DEVERR 

DEVFAT sINVALID STATS RECEIV 
OTER CEIVED 
21. 

IVSER 

DEVERR 

DEVFAT DATA RECORD TRUNCAT 
OTHER ire: 
22. 

ROTER 

DEVERR 


DEVF AT ; TAPE POSIT 
RnSPOS ITION LOST 


POLER 
DEVERR 


DEVFAT s;SERIOUS EXCEPTION 
OTHER 

24. 

SEXER 

DEVERR 


DEVFAT ;LEOT ENCOUNTER 
OTHER = 
25. 

LEDER 

DEVERR 


DEVFAT ;INVAL TAT 

OTHER ID STATUS RETURNED 
26. 
IVSER 
DEVERR 
HARD ;DATA COMPAR 

DTCPER co E ERROR 

27. 

DCMPER 

DEVERR 

HARD sRECORD LENGTH SHORT ERROR 
OTHER NGTH SHORT ERRO 


RLSER 
DEVERR 


SEQ 50 


LA a 


ee — 


GLOBAL AREAS 


2279 011166 
esse 011170 
2262 011172 
2283 011172 
2284 011173 
2285 011174 
2286 011176 
2287 011200 


8 
2289 011202 


11206 
2294 011210 
22% 011212 


2301 011220 
2303 011222 
304 


2307 011226 


M4 
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00004 
013125 


00004 
013145 


00004 
013103 
014502 


002 
060 


000043 
013103 


sERROR LOG ERROR TABLES 
CNTLER: 


.BYTE HARD 
-BYTE NOERR 
-WORD 29. 
-WORD CNTLEL 
WORD ERLGER 
BADERL : 
.BYTE HARD 
.BYTE NOERR 
-WORD 30. 
-WORD BADEL 
WORD ERLGER 
CMPERL : 
.BYTE HAR 
.BYTE DTCPER 
-WORD 31. 
. WORD CMPEL 
WORD ERLGER 
DRVERL : 
.BYTE HARD 
.BYTE NOERR 
-WORD 32. 
-WORD ORVEL 
WORD ERLGER 
CNTERL: 
BYTE HARD 
.BYTE NOERR 
-WORD 33. 
-WORD CNTEL 
WORD ERLGER 
LGPERL: 
.BYTE HARD 
.BYTE NOERR 
-WORD 34. 
-WORD LGPEL 
-WORD ERLGER 
ROSTEL: 7 
.BYTE HARD 
.BYTE HIREAD 
-WORD 35. 
-WORD OSTEL 
WORD ERLGER 
WOSTEL: 
BYTE HARD 
.BYTE HIWRIT 
.WORD 35. 
-WORD OSTEL 


;CONTROLLER (LAST FAIL) ERROR LOG 


s;HOST MEMORY ACCSESS ERROR 


;COMPARE ERROR 


;DRIVE ERROR LOG 


;CONTROLLER ERROR 


LONG GAP ENCOUNTERED 


sREAD DATA SYNC NOT FOUND 


;WRITE DATA SYNC NOT FOUND 


AL AREAS 


2308 011230 
309 

2310 011232 

2311 011232 


0112 
cee 011260 
2331 011262 


cise 011270 
2338 011272 


13 
2349 011306 
2350 011310 


1 
2352 011312 


56 
cine 011320 


GLOB MACRO YOS.02 Thursdey 18-Apr-85 13:37 
GLOBAL DATA SECTION 


014502 


003 
044 


00004 
012760 
014502 
003 
040 
000052 
012574 
014502 


014502 


003 
064 
000047 


013001 
014502 


014502 


CORERL : 


UWEERL : 


RTYERL: 


UREERL : 


ECBERL: 


ECTERL: 


ECDERL: 


Page 25-4 
ERLGER 
SOF T 
SiWRIT 
36. 
COREL 
ERLGER 
HARD 
HiIWRIT 
37. 
UWEEL 
ERLGER 
SOFT 
S1READ 
42. 
RTYEL 
ERLGER 


HARD 
H1READ 
38. 


UREEL 
ERLGER 
SOFT 
RTYEC1 
39. 
ECBEL 
ERLGER 
SOFT 
EC1COR 
40. 
ECTEL 
ERLGER 
SOFT 
EC1COR 
41 


ECDEL 
ERLGER 


TT 


SEQ S2 


;CORRECTABLE WRITE DATA ERROR 


;UNRECOVERABLE WRITE DATA ERROR 


;SOFT READ ERROR 


;UNRECOVERABLE READ DATA ERROR 


;CRC ERROR ON AN ECC BLOCK 


sECC CORRECTION ON A TAPE MARK 


;ECC CORRECTION ON A DATA BLOCK 


| GLOBAL 


AREAS 


——— ee se 
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GLOBAL TEXT SECTION 


84 011436 


011442 


011500 


BS 


-SBTTL GLOBAL TEXT SECTION 


; COMMAND PRIMITIVE ASCII 
CMDASC: : 


"A 
SPCASC: . 
A 


HEXTBL 


-EVEN 


NULL 
;READ 


;WRITE 

: COMPARE HOST DATA 
;SPACE RECORDS 
;SKIP * MARKS 
;SPACE OBJECTS 
;WRITE TAPE MARK 


sERASE 
;ERASE GAP 
; AVAILABLE 


; ONLINE 

ser UNIT CHARACTERISTICS 
HINITIALIZE 

eer COMMAND STATUS 


;GET UNIT STATUS 
;SET CONTROLLER CHARACTERISTICS 


GLOBAL AREAS 


‘GLOBAL TEXT SECTION 


013172 
013233 


head 
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; FORMAT STATEMENTS USED IN PRINT CALLS 


126 CMDER: .ASCIZ /INVALID TSSUED/ 
104 ABOER: .ASCIZ /CMD ABORTED/ 

111 OFLER: .ASCIZ /UNIT OFFLINE/ 

111 AVLER: .ASCIZ /UNIT AVAILABLE ERROR/ 

111 WPRER: .ASCIZ /UNIT WRITE PROTECTED/ 

124 DATER: .ASCIZ /DATA ERROR/ 

123 BADER: .ASCIZ /HOST BUFFER ocoxee ERROR/ 
116 CNTER: .ASCIZ ae thee - ROR/ 

111 ORVER: .ASCIZ /DRIVE ERROR/ 

122 FMTER: .ASCIZ /FORMATTER ERROR/ 

124 BOTER: .ASCIZ /BOT ENCOUNTERED/ 

120 TMER: .ASCIZ /TAPE MARK ENCOUNTERED/ 


123. HSTER: .ASCIZ /HOST DETECTE UT/ 

040 CMLSER: .ASCIZ /NO RESPONSE 10. GCs COMMAND/ 
116 HUNGER: .ASCIZ /CONTROLLER 

122 PORTER: .ASCIZ /PORT-DETECTED E RROR/ 

117 TIMERR: .ASCIZ /PROGRAM DETECTED CMD MS yas 
123 SEQER:: .ASCIZ /RESPONSE OUT OF SEQUENCE/ 

122 INITER: .ASCIZ /PORT INIT FAILED/ 

103 RLSER: .ASCIZ /RECORD LENGTH SHORT/ 

101 STATER: .ASCIZ /STATUS oike GE/ 

124 CMPER: .ASCIZ /DATA COMPARE ERROR/ 

127 DCMPER: .ASCIZ ?S/W gt ts A es COMPARE ? 


124 RTYEL: .ASCIZ /RETRY RECOVERED READ ERROR/ 
124 COREL: .ASCIZ /RETRY RECOVERED WRITE ERROR/ 
103 ECDEL: .ASCIZ /ECC DATA CORRECTION/ 

103 ECTEL: .ASCIZ /ECC TAPE MARK CORRECT ION/ 
122 UREEL: .ASCIZ /HARD READ ERROR/ 

122 UWEEL: .ASCIZ /HARD WRITE ERROR/ 

103 ECBEL: .ASCIZ /CRC ERROR ON ECC BLOCK/ 

124 CMPEL: .ASCIZ /DATA COMPARE ERROR LOG/ 

116 LGPEL: .ASLCIZ /LONG GAP ENCOUNTERD/ 

124 DSTEL: .ASCIZ /DATA SYNC TIMEOUT/ 

111 ODRVEL: .ASCIZ /DRIVE ERROR LOG/ 

116 CNTEL: .ASCIZ /CONTROLLER ERROR LOG/ 

116 CNTLEL: .ASCIZ /CONTROLLER (LAST FAIL) ERROR LOG/ 
123 BADEL: .ASCIZ /HOST MEMORY ERROR LOG/ 


Le ES 


<sasimeecsiiimciai aaa eaibiiansiiaaeaiaal 


a eee ee 


DS 
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| 2473 .SBTTL GLOBAL ERROR REPORT SECTION 
| Bars 
4 
2476 : THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX CALLS 
2477 ; THAT ARE USED IN MORE THAN ONE TEST. IT ALSO INCLUDES THE ASCII MESSAGES 
a73 3 Twat ARE USED BY THE PRINTB AND PRINTX CALLS.. 
| 2480 
2481 013262 a ;GENERIC ERROR TABLE 
013262 L$ERRTBL: 
013262 000000 ERRTYP:: -WORD 0O 
013264 000000 ERRNBR: : -WORD 0 
013266 000000 ERRMSG: : -WORD 0O 
2ase 013270 000000 ERRBLK: : -WORD 0O 
2483 013272 BGNMSG DEVERR 
013272 DEVERR: : ’ 
2484 013272 PUSH <R1,R5> ;SAVE R1 AND RS 
013272 010146 MOV R1,-(SP) ;;PUSH R1 ON STACK 
013274 010546 MOV RS, -(SP) ;;PUSH RS _ON STACK 
2485 013276 013703 003560 MOV R3SAVE ,R3 sRESTORE R3 
2486 013302 013704 003562 MOV R4SAVE ,R4 sRESTORE R4 
2487 013306 116205 000000 MOVB CMD(R2),R5 ;GET THE COMMAND PRIMITIVE 
2488 013312 042705 177407 BIC #177407,R5 ;CLEAR MODIFIERS 
2489 013316 006205 ASR RS ; THE PRIMITIVE 
2490 013320 062705 011322 ADD #CMDASC ,RS ;PUT ADDRESS IN R5 
2491 013324 016237 000000 003530 MOV CMD(R2),R8 ;GET THE PRIMITIVE AGAIN 
2492 013332 042737 177770 003530 BIC #177770,R8 ;SAVE THE LAST 3 BITS 
2493 013340 001014 BNE 1$ ;BRANCH IF NOT ZERO 
2494 013342 PRINTB #ERROO,RS, TKUNITCR4) 
013342 016446 000004 MOV TKUNIT(R4), -¢SP ) 
013346 010546 MOV RS, -(S 
013350 012746 015770 MOV #ERROO, “(SP) 
013354 012746 000003 MOV #3,-(SP) 
013360 010600 MOV SP,RO 
013362 104414 TRAP C$PNTB 
013364 062706 000010 ADD #10,SP 
2495 013370 000513 BR 6$ ;GO rd THE REST OF THE MESSAGE 
2496 013372 022737 000001 003530 1%: CMP #REVBIT ,R8& ;1S IT A REVERSE ? 
2497 013400 001014 BNE 2s ;BRANCH IF NOT 
2498 013402 PRINTB #ERRO1,RS, TKUNITCR4) 
013402 016446 000004 MOV TKUNIT(R4), -(SP) 
013406 010546 MOV RS,-(SP) 
013410 012746 016040 MOV #ERRO1, -(SP) 
013414 012746 000003 MOV #3, -(SP) 
013420 010600 MOV SP,RO 
013422 104414 TRAP C$PNTB 
013424 062706 000010 ADD #10,SP 
2499 013430 000473 BR 6$ ;GO PRINT THE REST OF Pes MESSAGE 
2500 013432 032737 000002 003530 2%: BIT #EOTBIT,RS ;1S IT A DETECT LEOT 
2501 013440 001414 BEQ 3$ ;BRANCH IF NOT 
2502 013442 PRINTB #ERRO2,RS, TKUNITCR4 ) 
013442 016446 000004 MOV TKUNIT(R4), -(SP) 
013446 010546 MOV RS,-(SP) 
013450 012746 016116 MOV #ERRO2, -( SP) 
| 013454 012746 000003 MOV #3,-(SP) 
013460 010600 MOV SP,RO 
| 


E5 
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| 013462 104414 TRAP C$PNTB 
013464 062706 000010 ADD #10,SP 
| 2503 013470 000453 BR 6$ ;GO PRINT THE REST OF THE MESSAGE 
2504 013472 022737 000003 003530 3$: CMP #IMMBIT,R8 ;IS IT A IMMEDIATE ? 
2505 013500 001014 BNE 4$ ;BRANCH IF NOT 
2506 013502 PRINTB #ERRO3,RS, TKUNIT(R4) 
013502 016446 000004 MOV TKUNIT(R4), -C(SP) 
013506 010546 MOV RS, -(SP 
013510 012746 016175 MOV #ERROS, -( SP) 
013514 012746 000003 MOV #3,-(SP) 
013520 010600 MOV SP ,RO 
013522 104414 TRAP C$PNTB 
013524 062706 000010 ADD #10,SP 
2507 013530 000433 BR 6$ ;GO PRINT THE REST OF THE MESSAGE 
2508 013532 022737 000004 003530 4$: CMP #UNLBIT,R8 ;I1S IT A UNLOAD ? 
2509 013540 001014 BNE 5$ ;BRANCH IF NOT 
2510 013542 PRINTB #ERRO4,RS, TKUNIT(R4) 
013542 016446 000004 MOV TKUNITC(R4), -(SP) 
013546 010546 MOV R5,-(SP) 
013550 012746 016253 MOV #ERRO4, -(SP) 
013554 012746 000003 MOV #3,-(SP) 
013560 010600 MOV SP ,RO 
013562 104414 TRAP C$PNTB 
013564 062706 000010 ADD #10,SP 
2511 013570 000413 BR 6$ ;GO PRINT THE REST OF THE MESSAGE 
2512 013572 S$: PRINTB #ERROS,RS, TKUNIT(R4) 
013572 016446 000004 MOV TKUNITC(R4),-(SP) 
013576 010546 MOV R5,-(SP) 
013600 012746 016332 MOV #ERROS, -( SP) 
013604 012746 000003 MOV #3,-(SP) 
013610 010600 MOV SP ,RO 
013612 104414 TRAP C$PNTB 
013614 062706 000010 ADD #10,SP 
2513 013620 6$: PRINTB #ERRO6,PASCNT,PATSAV(R4) 
013620 016446 000024 MOV PATSAV(R4), -(SP) 
013624 013746 003522 MOV PASCNT, -(SP) 
013630 012746 016411 MOV #ERROG, -(SP) 
013634 012746 000003 MOV #3, -(SP) 
013640 010600 MOV SP,RO 
013642 104414 TRAP C$PNTB 
013644 062706 000010 ADD #10,SP 
2514 013650 022705 011346 CMP #SPCASC,RS ;IS IT A DATA TRANSFER ERROR ? 
2515 013654 101412 BLOS 7$ ;NO, DON'T PRINT THE BYTE COUNT 
2516 013656 PRINTB #ERRO7,BYTES ;PRINT THE BYTE COUNT 
013656 013746 003416 MOV BYTES, -(SP) 
013662 012746 016461 MOV #ERRO7, -( SP) 
013666 012746 000002 MOV #2,-(SP) 
013672 010600 MOV SP ,RO 
013674 104414 TRAP C$PNTB 
013676 062706 000006 ADD #6,SP 
2517 013702 7$: PRINTB #ERRO8,OBOFFH(R2),OBOFFL(R2) 
013702 016246 000004 MOV OBOFFL(R2),-(SP) 
013706 016246 000006 MOV OBOFFH( RE). -(SP) 
013712 012746 016521 MOV #ERROB, -(SP) 
013716 012746 000003 MOV #3,-(SP) 
013722 010600 MOV SP,RO 
013724 104414 TRAP C$PNTB 
| 
‘ 


| GLOBAL AREAS 


| 
| 


2534 


2541 
2542 
2543 


013726 


014174 
014200 


i 
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122737 
001014 


013746 


001051 
012746 
012746 
062706 
012746 


100422 


011546 
011146 


162763 


| GLOBAL ERROR REPORT SECTION 


000010 
000010 


000010 


003552 
003554 
016556 
000003 


003516 
003516 


000010 


000006 010546 


000003 010546 


010566 
016617 
000002 


000006 
010566 
010546 
003444 
016651 
000001 
000004 
016675 
000001 
000004 


000002 
177774 


016733 
000003 


000010 
000004 


000004 
000004 177774 


8$: 


9$: 
10$: 


11$: 


PRIPCK: 





a 
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#10,SP 

> ‘rca ieatinaias 
#DRERFL ,PCFLAG 
#ERROO, HIHEX ,LOHEX 
LOHEX, -(SP) 
HIHEX , -( SP) 
#ERROY, - CSP) 
#3,-(SP) 

SP,RO 

C$PNTB 

#10,SP 
#INTERR, IOSTAT 
9¢ 

10$ 
#IOPDRE , IOSTAT 
11$ 


Hy ge SAERR 
SAERR, -(SP) 
#ERR10, -(SP) 
#2. -(SP) 


#1,- 


#2,R 
MSGLENCR3) 
CMPPRI 


_ WERRL3,CR1),CR5) 
),-CSP) 


(R5 ~ 
#ERR13,-(SP) 
#3, -(SP) 
SP,RO 

C$PNTX 
#10,SP 

#4,R1 


#4 ,R5 
#4 ,MSGLENC(R3 ) 


;WAS IT A vet ERROR ? 
sNO, GO PRINT TIME 

;CLEAR THE DRIVE ERROR FLAG 
;PRINT THE DRIVE ERROR CODE 


:IS IT A PORT INIT FAILURE ? 
;KEEP GOING IF IT ISN'T 

;GO PRINT SA CONTENTS 

:IS IT A PORT DETECTED FAILURE ? 
sKEEP GOING IF IT ISN’ 

;PRINT THE SA CONTENTS IF IT IS 


;CLEAR_ THE ERROR OUT OF THE LOCATION 
;WAS IT AN I/O ERROR ? 

;GET OUT IF IT WAS 

s;WAS IT A COMPARE ERROR ? 

:GO PRINT THE ERROR DATA 


;GET POINTER TO alae PACKET 
— A_SECOND COP 

;R1 POINT TO SECOND pn OF PACKET 
;CHECK THE MESSAGE LENGTH 

;GET OUT IF IT WENT NEGATIVE 


;GET THE NEXT WORD 
AND AGAIN 
s;ADJUST MESSAGE LENGTH DOWN 2 WORDS 


| GLOBAL AREAS 


- ee ee ee 


| GLOBAL ERROR REPORT SECTION 


2544 014206 


2553 asta 


014434 


! 
0 
2552 014254 
\ 
' 


001353 
005737 003444 
001471 


012701 003446 
012702 003472 
013705 003444 


12746 016764 
12746 000001 
010600 
104415 
062706 000004 


012746 017012 
012746 000001 
010600 
104415 
062706 000004 


005046 
151216 
005046 
156216 000001 
011146 
012746 017062 
012746 000004 


062706 000012 
005337 003444 


022701 003472 
001352 


010546 
012746 017107 
012746 000002 


062706 000006 
005037 003444 


012746 020527 
012746 000001 
010600 
104417 
062706 000004 
105737 002212 
001421 


005046 
153716 002215 
005046 


CMPPRI: 


1$: 


CPRIEX: 


Pp 
DEVEXT: 
M 
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Page 28-3 


PRIPCK 
CMPERR 
DEVEXT 
<R2> 
#BYTADD,R1 
#DATBL ,R2 
A »RS 


RR14 
#ERR14,-(SP) 
#1,-(SP) 


SP ,RO 
C$PNTX 
#ERR1S 
#ERR15,-CSP) 
#1,-(SP) 

SP, 

C$PNTX 


#4 ,SP 
#ERR16,(R1),<B,ONECR2)>, 


(R2), (SP) 
-(SP) 
ONE(R2), 1S 
#ERRI6, -(SP) 
P) 


(R2)+ 

+ pares 

#ERR17,R5 

RS,-(S 

#ERR17,-(SP) 

#2, -( SP) 

SP ,RO 

C$PNTX 

#6, SP 

CMPERR 

<R2> 

#LINE 

#LINE , -(SP) 

3. -($P) 
P,RO 

C$PNTF 

#4 ,SP 


CLOCK 


a ce Ce 


;KEEP PRINTING TILL ALL DONE 
WAS THIS A COMPARE ERROR ? 
iGET OUT IF IT WASN'T 


;POINT R1 TO THE BYTE a Bit 
;POINT R2 TO THE WRITE DATA TABLE 
;LET RS = THE NUMBER OF BYTES IN ERROR 


<B,(R2)> 


;SUBTRACT 1 FROM NUMBER OF ERRORS 
;GO PRINT TOTAL NUMBER IN ERROR 
;POINT R1 TO THE NEXT le 
;POINT R2 TO THE NEXT DAT 

;HAVE WE PRINTED THE WHOLE TABLE ? 
;NO CONTINUE 


;CLEAR THE ERROR COUNTER 


;IS THE CLOCK ari 
THEN CAN'T PRINT TIME 


1$ NO, 
#TIME,<B,HOURS>,<B, MINUTE> , <B, SECOND> 


-(SP 
SECOND, (SP) 
-(SP) 


- — ee ne ee ee 


OBAL AREAS 


GL 
| GLOBAL ERROR REPORT SECTION 


014436 153716 


01 
2567 014470 
2568 014474 
014474 000167 
014476 000000 
2569 piss 


014500 104423 


002214 
002213 


020044 
000004 


000012 


1$: 


L10002: 








H5 
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“<3 eel 

HOURS , (SP ) 

#TIME , -(SP) 
SP) 


J$JMP 
L10002-2-. 


C$MSG 


A 


SEQ 59 


ee 


TTT TT Se se ae 


| GLOBAL AREAS 


| GLOBAL ERROR REP 


014502 
0 


014746 


ee ee ee 
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010146 


001014 
016446 


001013 
016446 


001414 


016446 
010546 
012746 
012746 
010600 
104414 
062706 
000453 
022737 
001014 


016446 


022737 
001014 


177407 
011322 
003536 
177770 
000004 
015770 
000003 
000010 
000001 


000004 
016040 
000003 


000010 
000002 
000004 
016116 
000003 
000010 
000003 


000004 
016175 
000003 
000010 
000004 


003530 
003530 


003530 


003530 


003530 


003530 


ERLGER: : 


5$: 


10$: 


15$: 


20$: 


BGNMSG 


Page 29 


15 


SEQ 60 
ERLGER 
<R1,R5> ;SAVE Ri AND RS 
Ri,-(SP) ;;PUSH R1 ON STACK 
RS,-(SP) ;;PUSH RS_ON STACK 
R3SAVE ,R3 ;RESTORE as 
sRESTORE R 


R4SAVE ,R4 
1,R5 

#177407,R5 

RS 

#CMDASC ,RS 

R11,R8 

#177770,R8 


#ERROO, oat TKUNITCR4 ) 
TKUNIT(R4), -(SP) 


RS,-(SP) 
#ERROO, -( SP) 
# SP) 


ys] 
— 


SP ,RO 

C$PNTB 

#10,SP 

30$ 

#REVBIT ,R8& 

10$ 

#ERRO1,RS, TKUNITCR4) 
TKUNITCR4),-CSP) 
R5,-(SP) 

#ERRO1, -(SP) 
3,-(CSP) 

SP,RO 

C$PNTB 

#10,SP 
#EOTBIT,RS& 

15$ 

#ERRO2,RS, TKUNITCR4) 
TKUNITCR4),-CSP) 
R5,-(SP) 
#ERRO2, - (SP) 
#3,-(SP) 

P,R 


C$PNTB 
#10,SP 


30$ 
#IMMBIT ,R8 


20$ 

#ERROS,RS, TKUNITCR4 ) 
TKUNITC(R4),-CSP) 
RS,-(SP) 
#ERRO3Z, - (SP) 
#3,-(SP) 

SP ,RO 

C$PNTB 

| al 


O$ 
#UNLBIT ,R8 
25$ 


;GET THE COMMAND PRIMITIVE 
9 MODIFIERS 

;THE PRIMITIVE 

;PUT ADDRESS IN RS 

;GET THE PRIMITIVE AGAIN 
;SAVE THE LAST 3 BITS 
;BRANCH IF NOT ZERO 


;GO PRINT THE REST OF THE MESSAGE 
;IS IT A_REVERSE ? 
;BRANCH IF NOT 


;IS IT A DETECT LEOT ? 
;BRANCH IF NOT 


;GO PRINT THE REST OF THE MESSAGE 
;IS IT A IMMEDIATE ? 
;BRANCH IF NOT 


;GO PRINT THE RESi OF THE MESSAGE 
;IS IT A_UNLOAD ? 


;BRANCH IF NOT 


ee 
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/ GLOBAL ERROR REPORT SECTION 


2597 014750 PRINTB 
014750 016446 000004 MOV 
014754 010546 MOV 
014756 012746 016253 MOV 
014762 012746 000003 MOV 
014766 010600 MOV 
014770 104414 TRAP 

14772 062706 000010 ADD 

2598 014776 000413 

2599 015000 25$: PRINTB 

15000 016446 000004 MOV 
015004 010546 MOV 
015006 012746 016332 MOV 
015012 012746 000003 MOV 
015016 010600 MOV 
015020 104414 TRAP 
015022 062706 000010 DD 

2600 015026 30$: PRINTB 
015026 016446 000024 MOV 
015032 013746 003522 MOV 
015036 012746 016411 MOV 
015042 012746 000003 MOV 
015046 010600 MOV 
015050 104414 TRAP 

15052 062706 000010 ADD 

2601 015056 122763 000005 000010 CMPB 

2602 015064 001402 EQ 

2603 015066 000137 015476 P 

2604 015072 35$: PRINTB 

15072 013746 003416 MOV 
015076 012746 016461 MOV 
015102 012746 000002 MOV 
015106 010600 MOV 
015110 104414 TRAP 
015112 062706 000006 ADD 

2605 015116 PRINTB 
015116 016246 000004 MOV 
015122 016246 000006 MOV 
015126 012746 016521 MOV 
015132 012746 000003 MOV 
015136 010600 MOV 
015140 104414 TRAP 
015142 062706 000010 DD 

2606 015146 PRINTX 
015146 016346 000044 MOV 
015152 016346 000046 MOV 
015156 012746 017146 MOV 
015162 012746 000003 MOV 
015166 010600 MOV 
015170 104415 TRAP 
015172 062706 000010 ADD 

2607 015176 PRINTX 
015176 005046 CLR 
015200 156316 000043 BISB 
015204 005046 CLR 
015206 156316 000042 BISB 
015212 005046 CLR 


a (eee ee 





J5 
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#ERRO4 RS, TKUNITCR4 ) 
TKUNIT(R4),-(SP) 
RS,-(SP) 

#ERRO4 , -( SP) 
#3,-(SP) 

P,RO 

C$PNTB 

#10, SP 


30$ 
#ERROS RS, TKUNITCR4 ) 
TKUNITC(R4),-CSP) 


RS,-(SP) 
#ERROS, - (SP) 
# P) 


;GO PRINT THE REST OF THE MESSAGE 


C$PNTB 


#10, SP 
#ERRO6 ,PASCNT, oe 
PATSAV(R4), -(SP) 

PASCNT, -(SP) 

#ERROG , - (SP) 

#3,-(SP) 

SP,RO 


C$PNTB 
#10,SP 
#FM. TPE,L.FMT(R3) :IS IT A TAPE TRANSFER ERROR LOG ? 
35$ YES, GO PRINT IT 
PKPRNT ;NO, PRINT THE ERROR — PACKET 
#ERRO7,BYTCS ;PRINT THE BYTE COUNT 
BYTES, -(SP) 
#ERRO7, -(SP) 
#2,-(SP) 
SP ,RO 
C$PNTB 
#6 , SP 
#ERROB , OBOFFH(R2), OBOFFL(R2) 
OBOFFL(R2),-(SP) 
OBOFFH(R2),-CSP) 
#ERROB, - (SP) 
#3,-(SP) 
SP,RO 
C$PNTB 
#10,SP 
#ERLOO, L.PSTN+2(R3),L.PSTNCR3) 
L.PSTNCR3),-(SP) 
& PSTN+2(R3), -(SP) 
#ERLOO, -(SP) 
#3,-(SP) 
SP ,RO 
C$PNTX 
#10,SP 
Sa Te ees RE OA AENEID 
tT a at 


L.LVLCR3), (SP) 
“¢SP) 


GLOBAL AREAS 
015214 


0 
2608 Stases 


0 
2609 orasts 


0 
2610 orease 


0 
2611 eens 


0 
2612 Et rs 


0 
2613 areaed 


015456 


— ee ae ee wee 
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156316 
012746 
012746 
010600 
104415 
062706 
016346 
00 


156316 
005046 


016346 
012746 
012746 


000055 
017203 
000004 
000012 
000056 
000060 


017301 
000003 


000010 


000054 
000053 


017365 
000003 


000010 


000052 
000064 
017454 
000003 


000010 


000062 
000061 
017540 
000003 
000010 
000066 
000063 
017627 
000003 
000010 
000070 


017713 
000002 


KS 
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L.TRKCR3),(SP) 
#ERLO1, -(SP) 
#4, -( 

SP,RO 

C$PNTX 

#12,SP 


#ERLO2,<B,L. Sat L.PBLK(R3) 
L.PBLK(R3), -(SP) 


-(SP 
L.LBLKCR3),(SP) 
#ERLO2, -( SP) 
#3,-(CSP) 
SP,RO 
C$PNTX 
#10,SP 
#ERLO3,<B,L.ORVCC(R3)>,<B,L.DFLG(R3)> 
L. DFLGCR3),(SP) 

L.DRVCCR3),(SP) 
BER L03,-( SP) 
#3, -(SP) 
SP ,RO 
C$PNTX 
#10,SP 
7 5 ella atta eran datas 
L.STSC(R3),(SP) 
L.DRVSC(R3),-(CSP) 
#ERLO4, -(SP) 
#3,-(SP) 
SP,RO 
C$PNTX 
#10,SP 
Samal ata at tinie 
L. "> Seated . (SP) 
L. CNTOCR3),(SP) 
#ERLOS, -( SP) 

SP) 


»RO 
C$PNTX 
#10,SP 
#ERLO6,<B,L.CNT2(R3)>,L.RWSTC(R3) 
L.RWSTCR3),-CSP) 


-(SP) 
L.CNT2(R3),(SP) 
#ERLO6, - (SP) 
#3,-(SP) 

SP 


SEQ 62 


GLOBAL AREAS 
GLOBAL ERROR REPORT SECTI 


0 
2614 


2615 


2616 


0 
2617 


2618 


015716 
015716 
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016246 
016246 
012746 
012746 
010600 
104414 
062706 


012746 
012746 
00 


012746 
012746 
010600 
104417 
062706 
105737 
001421 
005046 


a 


000006 
015670 
000006 
016521 
000003 


000010 
017743 
000001 
000004 
016651 
000001 
000004 
016675 
000001 
000004 


000002 
177774 


016733 
000003 


000010 
000004 
000004 
000004 


020527 
000001 


000004 
002212 


177774 


PKPRNT: 


1$: 


MSGEXT: 


MOV 
TRAP 
ADD 
JMP 
ee 


a _—_ EF ——F FL | Toes eo 


L5 


Page 29-3 SEQ 63 
SP,RO 
C$PNTX 
#6, SP 


MSGEXT ;GET OUT 
#ERROB , OBOFFH(R2), OBOFFL(R2) 
OBOFFL(R2),-(SP) 
OBOFFH(R2),-(SP) 

#ERROB, - (SP) 

#3,-(SP) 

SP,RO 

C$PNTB 

#10,SP 

#ERLOB 

#ERLOB, - (SP) 

#1,-(SP) 

SP 


CePNTX 
#4, SP 


#ERR12 
#ERR12,-CSP) 
#1,-(SP) 
.RO 
C$PNTX 
#4,,SP 
R3,R5 4° POINTER TO RESPONSE PACKET 
R3, a AND A SECOND COPY 


#2,R Ri POINT TO SECOND WORD OF PACKET 
MSGLENCRS) ;ARE WE STILL POSITIVE 7 


MSGEXT 3NO, GET OUT 
#ERR13,(R1),CR5) 

(R5),-(SP) 

#ERR13,-(SP) 

#3,-(SP) 


#4,R1 ;GET THE NEXT WORD 


#4,R5 ;AND AGAIN 
#4 ,MSGLEN(R3) ;ADJUST MESSAGE LENGTH DOWN 2 WORDS 
1$ ;KEEP PRINTING TILL ALL DONE 


#LINE 
#LINE , -(SP) 
#1,-(SP) 
SP ,RO 
CSPNTF 
#4 ,SP 
CLOCK 31% a CLOCK ENABLED 
HEN CAN'T PRINT TIME 


1$ 70, 
wm" .<B, HOURS>, <B,MINUTE>, ‘B. SECOND > 


ee oe ee ee ee ee ee ee — 


OO 


eee 


GLOBAL AREAS 
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153716 


002215 
002214 
002213 

0044 


o 
yu 


000012 


1$: 


Page 29-4 


woe (SP) 
nNUTE, » (SP) 


HOURS , (SP ) 


TIME, -(SP) 


04,-(SP ) 


JMP 
L10003-2-. 


?sACOMMAND : 
: STSA-REVSS3SAT/MSCP UNIT: #038A(0) 
: STSA-LEOTSS3SAT/MSCP UNIT: #038A( 
: STSA-IMMSS3SAT/MSCP UNIT: #038A(0 


— se ee eee - —_ —= = 


M5 


STSS3SAT/MSCP UNIT: #038A(0)? 


DATA aif #8028A(0)? 
?sNSARECORD BYTE COUNT: sD6sA(D)? 
: 8068068A(0)? 
: STSTSACH)? 
sA(0)? 


?SNSSSSAHIGH WORDSSESALOW WORD? 
2SNSSSSO6HA( 0 )SSE806NA( 0)? 
?SNSSOSABYTESSI1OSADATA? 
?SNSS2SAADDRSS SHAE XPECTEDSS SSARECEIVEDSN? 
28S18068S58038S68038N? 
?2SATOTAL BYTES IN ERROR : sD4sN? 


1: 
?SNSATAP CNT 2: S038A(0) RD/WR STATE: 
2SNSAOPER FLGS: #068A(0)? 
?SNSAERROR LOG PACKET? 


Q)? 
)? 
: STSA-UNLDSSS8AT/MSCP UNIT: eeatass 


RETRIES: 
sD68A(D)? 
8038A(0)? 
6038A(0)? 
#8038A(0)? 
#6068A(0)? 


?SNSAS\e/e\e/e CLOCK NOT PRESENT ¢\0/e\e/esN? 
?SNBAS\e/e\e/e TIME 6Z28A:8Z28A:8Z28A 0 \0/0\0/e8N? 


?sSsNSAe\e/e\e/e START OF DA 


Y SO28A ¢\0/e\e/enN? 


?SABYTE COUNT: sD8A(D) 4 Dd SDSACD ) SN? 


?SNSAUNIT: S018A IS AT EOTSN 
?SNSAUNIT: SO18A IS AT LEOTSN? 


2GNSAR1 : SO6KA R2:8068A R3:8068A R4:8068A RS: 8068N? 


?SNSNSABYTES X-FERRED: sD58A(D)SN? 
sUOSAS SAOSASIEOEEE SHCENE SaCEeNt? 


/SNSAUNIT: 8D1/ 


/®NSADRIVE SOFTWARE VERSION : 
/®NSADRIVE HARDWARE VERSION : 


/SNSACONTROLLER SOFTWARE VERSION : 
/®NSACONTROLLER HARDWARE VERSION : 


SEQ 64 


sD28A(D)? 


N5 
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GLOBAL ERROR REPORT SECTION 


2678 021001 045 116 045 BYPASS: : .ASCIZ /SNSA TEST 8Z738A BYPASSEDSN/ 
2680 021034 ; ENDMSG 
02 L10003: 


1034 
021034 104423 TRAP C$MSG 


SEQ 65 


/CLOBAL AREAS 


‘GLOBAL ERROR REPORT SECTION 


36 
2685 021036 
2686 021040 
2687 021042 
2688 021044 
2689 


a 


B6 
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000000 
177777 


177777 


sPROTECTION TABLE 


BGNPROT 
L$PROT:: 


. 0 

-WORD -1 
WORD - 

ENDPROT 


a —_—- ee eo 





C6 
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' CLOCK HANDLER 
44} -SBTTL CLOCK HANDLER 
2693 021044 BGNSRV NOCLK 
2698 021044 NOCLK: : 
2695 021044 105037 002212 CLRB CLOCK sCLEAR THE CLOCK ENABLED BIT 
2696 021050 052737 000002 003516 BIS ee PCFLAG ;SET UP NO CLOCK PRESENT FLAG 
2697 021056 PRINTF #NCLK s;PRINT MESSAGE 
021056 012746 017770 MOV #NCLK , - (SP) 
021062 012746 000001 MOV #1,-(SP) 
021066 010600 MOV SP ,RO 
021070 104417 TRAP CSPNTF 
aeee 021072 062706 000004 ADD #4 ,SP 
2699 021076 ENDSRV 
021076 L10005: 
021076 000002 RTI 
2700 
2701 021100 BGNSRV KWHDL 
2702 021100 KWHOL : : 
2703 021100 105237 002216 INCB SUBSEC s; INCREMENT THE SUB- — COUNTER 
2704 021104 122737 000074 002216 CMPB #60. , SUBSEC oo IT A SECOND YET 
2705 021112 001051 BNE HDLEXT GET OUT 
2706 021114 105037 002216 CLRB SUBSEC CLEAR THE SUBSEC COUNTER 
2707 021120 105237 002215 INCB SECOND sINCREMNET THE SECONDS COUNTER 
2708 021124 005237 010556 INC TIMER sINCREMENT THE COMMAND TIMER 
2709 021130 122737 000074 002215 CMPB #60. , SECOND :IS IT A MINUTE YET ? 
2710 021136 001037 BNE HDLEXT NO, GET OUT 
2711 021140 105037 002215 CLRB SECOND sCLEAR THE SECOND COUNTER 
2712 021144 105237 002214 INCB MINUTE sINCREMENT THE MINUTE COUNTER 
2713 021150 122737 000074 002214 CMPB #60. ,MINUTE IS IT AN HOUR YET ? 
2714 021156 001027 BNE HOLEXT sNO, GET OUT 
2715 021160 105037 002214 CLRB MINUTE s;CLEAR THE MINUTE COUNTER 
2716 021164 105237 002213 INCB HOURS sINCREMENT THE HOUR COUNTER 
2717 021170 122737 000030 002213 CMPB #24. ,HOURS sIS IT A DAY YET ? 
2718 021176 001017 BNE HOLEXT 3NO, GET OUT 
2719 021200 105037 002213 CLRB HOURS ;CLEAR THE HOURS COUNTER 
2720 021204 105237 003564 INCB DAYS ;INCREMENT THE DAY COUNT 
2721 021210 PRINTF et <B,DAYS>  ;PRINT END OF DAY STATMENT 
021210 005046 CLR p) 
021212 153716 003564 BISB DAYS. (SP) 
021216 012746 020125 MOV #DAY , -( SP) 
021222 012746 000002 MOV #2,-(SP) 
021226 010600 MOV SP, 
021230 104417 TRAP C$PNTF 
021232 062706 000006 ADD #6 , SP 
2722 021236 HDLEXT: 
2723 021236 ENDSRV 
021236 L10006: 


021236 000002 RTI 


, GLOBAL AREAS 
‘ SCHEDULER 


6 
021240 


021330 
021332 
021340 
021344 
021352 


021356 


021404 
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005001 
005037 


001010 
012746 


001012 
012764 


022701 
001410 
062701 
062704 
005237 


104422 
000743 
900207 


002074 
002314 
000003 


000020 


020527 
000001 


000004 
000001 


000004 


000377 
026230 
000004 
021406 


000006 
000002 


000172 
002074 


002114 
000000 


003350 
003350 


000010 
010571 


-SBTTL SCHEDULE 
jReRRRRE REE REE 


; SCHEDULER 


:Called by 
Calls to 

; Outputs 
;Register Inpute: 


;Registers Used : 


SCHED: : 


1$: BIT 


2s: CMP 


3$: RTS 


R 
eee EERE 


: Test N 
CMMDSQ 


EOT Flag, Dropped Flag 


RS (Pointer to command active in table - not used here) 


Ri 


L$LUN 
#LUNO ,R4 
#3,L$TEST 


-* edna 

#LINE 

#LINE , -(SP) 
#1,-(SP) 

SP,RO 

CSPNTF 

eae 

#EOT ,DRINUS(R1) 

es 

#377, At yoni 

PC,PRTCLR 

#4,CRDOLIM 

PC,CMMDSQ 

#6.,R1 

3$ 

#UNTSTP,R1 


#LUNSTP,R4 
L$LUN 


R4 (Pointer to LUN Block for use by called subs) 


SET R1 TO FIST UNIT 

SET L$LUN TO FIRST UNIT 

;SET R4 TO THE FIRST LUN BLOCK 
;ARE WE IN TEST 3 ? 

;YES, PRINT LINEFEED 

IS IT A WRITE COMMAND ? 

3NO, GET OUT 

;PRINT A LINE FEED 


SEQ 68 


;SEE IF DRIVE IS PRESENT AND a 


;GET THE NEXT DRIVE IF IT ISN 
;CHECK IF THE DRIVE IS AT EOT 
;GET NEXT DRIVE IF IT IS 


;SET ALL_RESPONSE SLOTS TO THE PORT 
GO DO IT 


;CREDITS START AT 4 FOR NEW LUN 
;GO DO THE TEST ON THIS DRIVE 


sHAVE WE DONE THEM ALL ? 
;GET OUT 
;GET NEXT UNIT 


sSET UP THE NEXT LUN BLOCK 
;GET NEXT UNIT 


GO DO THE NEXT ONE 
ETURN 


4 
ee ee ee 


el 


GLOBAL AREAS 
ic Q 


OMMAND SEQUENCE 


021406 


021440 
021446 


021472 


021474 
021500 
021506 
021510 
021514 
021516 


021524 


04 021552 
021556 


021560 
021564 
021566 
021574 


021576 
021604 
021606 


021610 
021616 
021620 
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010146 


012737 
032737 


000414 
005337 


000405 


022737 
001747 
000425 


032737 
001412 
042737 


022002 
000200 
003420 
003420 
177777 
000040 
003400 
000200 
023050 
000002 
010556 


010000 


023444 
000002 


000171 
010556 


010556 
010000 


020000 


000040 
000040 


003516 


010550 
003516 


003516 


003516 


010556 


003516 
010556 


010556 


010546 


003516 
003516 


-SBTTL COMMAND SEQUENCER 
EERE A EERE EERE ERE EE EEE 


: COMMAND SEQUENCER 
;Called by : SCHED 


:Calls to MOBL 
;Register Inpute: a2 - 


a ee ees 


SEQ 69 


D, QCMD, CLSDRV, RSPHDR, UNJAM 
POINTER TO COMMAND ACTIVE IN TABLE 


; - POINTER TO LUN BLOCK 


CMMDSQ: : 
PUSH <R1,R5> 
MOV RS,-(SP) 
JSR PC,CMDBLD 
BIC #CMDONE , PCFLAG 
MOV ITERS,CMDCNT 
MOV ITERS,RSPCNT 
MOV #-1,CMSTSV 
5$ BIT #GCSRFL,PCFLAG 
BNE 1 
TST CMDCNT 
BNE 10$ 
BIS #CMDONE , PCFLAG 
BR 15$ 
10$: JSR PC ,QCMD , 
: BIT #NCLKFL ,PCFLAG 
BNE 13$ 
CLR TIMER 
BR 15$ 
13$: MOV #10000, TIMER 
15$: BREAK 
RAP C$BRK 
JSR PC,CLSDRV 
BIT #NCLKFL ,PCFLAG 
BNE 18$ 
CMP #121.,TIMER 
BHI 20$ 
CLR TIMER 
BR 25$ 
18$: DEC TIMER 
BNE 20$ 
MOV #10000, TIMER 
BR 25$ 
20$: CMP #IOICRD,IOSTAT 
BEQ 15$ 
BR 35$ 
255: BIT #GCSRFL ,PCFLAG 
BEQ 30$ 
BIC #GCSRFL,PCFLAG 


VE R1 AND RS 


;SA 
;;PUSH R1 ON STACK 
;;PUSH RS ON STACK 


;GO BUILD THE COMMAND 
sGET SET TO START ISSUING COMMANDS 
ND COUNT 


COUNT 
;RESET THE GCS PROGRESS COUNT 


;STILL LOOKING FOR A GCS aan ? 
;DON'T QUEUE UP THE NEXT COMMAND 

;D0 WE STILL HAVE COMMANDS TO ISSUE ? 
YES , KEEP GOING. 

;SET THE ALL COMMANDS ISSUED FLAG 


:GO QUEVE UP THE NEXT COMMAND 
;3IS A CLOCK PRESENT ? 

NO CLOCK, START REGULAR TIMER 
;SET TIMER TO 0 

3GO_ ISSUE COMMAND 

;SET UP THE TIMER 


oe THE CLASS DRIVER 
IS A CLOCK PRESENT ? 
;NO CLOCK, Lgl A TIMER 


: IMER TO 0 
;YES,SET UP FOR TIME OUT 


ame neent THE TIMER 
sBRANCH IF NOT 0 

;RESET THE TIMER 6. 
;SET TIME OUT ERROR 


s INSUFFICIENT CREDITS ? 
sYES, TRY AGAIN 
sYES, CHECK IT OUT 


sWAITING FOR A GCS RESPONCE ? 
NO, SET UP TO DO A GCS 
;CLEAR THE GCS RESPONSE FLAG 


| GLOBAL AREAS 
| COMMAND SEQUENCER 


2819 
0 


021626 

1634 
021640 
021642 
021644 
021652 
021660 


021662 


o 
ue) 


021716 


6 
021722 


021742 
2 


021746 


021772 
021774 


022000 


ee ee ee 
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012737 
004737 
000240 
000407 


052737 
052737 
000721 


022737 


004737 


032737 
001275 
022737 
001002 
004737 


032761 
001407 


001225 


012605 
012601 
000207 


000004 
033734 


000020 
000040 
060000 
000240 


003400 
000000 


027426 
020000 
000002 
033242 
000001 
003402 
000040 


010546 


003516 


003516 


010546 
003516 


010546 


010546 
003406 


003350 


003516 


30$: 


35$: 


40$: 


45$: 


50$: 


#IOTIME , IOSTAT 
PC ,CORDMP 


35$ 

#GCSCFL,PCFLAG 
#GCSRFL ,PCFLAG 

15$ 

+> + alata cima 
+ aaeacanhaaactal tet 
CMDCNT 

#IONORM, IOSTAT 

45$ 

PC ,RSPHDL 

t teecaaaal 

+ + ia teataaiant 
PC,UNJAM 

#AVB ,DRINUS(R1) 

50$ 

> aaa 

#GCSRFL ,PCFLAG 

5$ 

<R5,R1> 


(SP)+,R5 
(SP)+,R1 
PC 


SEQ 70 


;SET UP TIME OUT ERROR 
;D0 A VARIABLES DUMP 


;GO REPORT ERROR AND DROP UNIT 


;SET THE GCS COMMAND FLAG 
;SET_ THE GCS RESPONSE FLAG 
;GO ISSUE THE GCS COMMAND 


;DID WE GET ERROR LOG PACKET ONLY? 
sYES - SQ BRANCH AROUND NEXT INSTRUCTION 
: HAVE ALL COMMANDS BEEN ISSUED ? 

;YES, DON'T LET CMDCNT GO NEGATIVE 
;DECREMENT THE COMMAND COUNT 

iWAS at COMPLETION ? 


sYE 
;NO, LETS SEE WHAT IT WAS 


;WERE WE IN RSPHDL FOR ERROR LOG ONLY? 
YES - GO TRY TO POST SAME COMMAND. 
s;WAS IT A SERIOUS EXCEPTION ? 

NO, CONTINUE 

;YES, GO UNJAM THE QUEUES 


sHAS “a BEEN DROPPED ? 

iHAVE WE GOTTEN ALL THE RESPONSE BACK ? 
GO BACK TO THE TOP 

rSTHLL LOOKING FOR A GCS RESPONSE ? 

sYES, DON'T GET OUT YET 


;RESTORE on R1 AND RS 


;;POP STACK INTO R 
;+;POP STACK INTO R1 
ETURN 


A 


LOBAL AREAS 
OMMAND BUILDE 


022002 
022002 
022010 
022014 


022022 
022026 
022034 
022040 


022106 
022110 


2 
022114 
022120 


022122 
R86 


el 


012737 
012703 
116563 


004737 


004737 


022737 
001020 
122765 
001014 


013746 


062706 


012703 
010302 
000207 


000004 
003344 
000000 


022124 
003416 
022212 
022644 
000003 
000020 
003420 
003416 
020202 
000003 
000010 


003264 


003424 
000000 


000002 


002114 
000000 


Register Inputs: 
jRegioter Output: 


;Registers Used : 


G6 
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-SBTTL COMMAND BUILDER 
itiiti iii iii titi itr eerie! 


ey BUILDER 


: CMMDS 


Q 
: BYTCNT, SELDAT, SELREC 


ee oe + 


RS - pointer to test's command table 
R4 - pointer to LUN BLOCK 
ot - new pointer for command ring (set to start of ring) 


po Po weg) 

CMDCRS), *CHDCR3) 

PC,BYTCNT 

BYTES, ITMOFFCR3) 

PC, SELDAT 

PC,SELREC 

#3,L$TEST 

5$ 

Se 

#COUNTS ,BYTES, ITERS 
RS,-(SP) 

BYTES, -(SP) 

#COUNTS, -(SP) 

#3, -(SP) 

S ,RO 

C$PNTF 

#10,SP 

#PCMDBF ,R3 

R3,Re2 

PC 


2 - old pointer for command ring (set to start of ring) 
R3 Pointer to dummy packet before setting to command ring 


;INITIALIZE THE SUB-ITERATION COUNTER 
;PUT_ THE DUMMY PACKET ADDRESS IN R3 
;MOVE THE COMMAND PRIMITIVE TO THE PACKET 


;GO GET THE BYTE COUNT 

;PUT THE BYTE a IN THE DUMMY PACKET 
;GO GET THE DAT 

;G0 GET THE RECORD COUNT 


;ARE WE IN TEST 3 ? 


;YES, PRINT COUNTS 
14 IT A WRITE COMMAND ? 


GET OUT 
;YES, PRINT BYTE AND ITERATION COUNTS 


;PUT THE PROGRAM COMMAND RING ADDRESS IN 
R3_ AND R2 


;RETURN 


| GLOBAL AREAS 
' BYTE COUNT 


2 
2903 022124 
04 


2908 022144 


9 
2910 022146 
2911 022154 


2 
2913 022156 
2914 022162 
2915 022170 
2916 022172 
2917 022200 
2918 022202 
2919 022210 


a ee 


H6 
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005037 
005765 
001404 
016537 
000421 


122765 
103415 


004737 


013737 
000207 


003416 
000002 


000002 
000020 


022716 
003426 
003426 


003426 


003416 


000000 


020000 


000024 
003416 


-SBTTL BYTE COUNT 
PItiiii iii i oferta r 


; BYTE COUNT 


Called by : CMDBLD 
;Calls to : RANGEN 
; Outputs 


;Register Inputs: RS - pointer to test command table 
R4 - pointer to LUN BLOCK 


;Register Output: None 
;Registers Used : None 


BYTCNT:: 
CL BYTES 
TST ITMCNTCRS) 
BEQ 1$ 
MOV ITMCNTC(RS),BYTES 
BR 3$ 
1$: CMPB #WR,CMDCRS) 
BLO 3$ 
2s: JSR PC ,RANGEN 
CMP RANWRD , #MAXBUF 
BHI 2s 
CMP RANWRD , #MINBUF 
BLO 2s 
MOV RANWRD ,BYTES 
3$: RTS PC 


;CLEAR BYTES 

;CHECK ITMCNT FOR 0 
;CONTINUE IF IT IS 0 
—_— INTO BYTES 


;I1S_ IT A READ OR WRITE 
;GET OUT IF IT ISN'T 


;GO TO THE RANDOM GENERATOR 


BYTES (contains byte or item count to be used for this iteration set) 


;IS THE RESULT WITHIN THE LIMITS ? 


;BRANCH IF TOO HIGH 
;IS IT TOO SMALL ? 
;BRANCH IF TOO SMALL 
a INTO BYTES 


ee es 


16 
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| SELECT DATA PATTERN 

2921 .SBTTL SELECT DATA PATTERN 

345 5K EEE RARER KERR EE EEK 

2 i 

2924 ; SELECT DATA PATTERN 

2925 

2926 ‘Called by : CMDBLD 

2927 Calls to : RANGEN 

2928 ;Inputs : Date Pattern in test command table 

2929 ; PATSAV in LUN BLOCK if rotating pattern in use 

2930 ;Outputs : Write Buffer filled with appropriate data pattern 

2931 ; PATSAV in LUN BLOCK updated to next pattern 

2932 ;Register Inputs: RS - pointer to test command table 

2933 ; : R4 - pointer to LUN BLOCK 

2934 ;Registers Used : R3 - pointer to WRTIBUF 

2935 : R2 - pointer to data pattern 

2936 ; 

2937 


2938 022212 
2939 022212 
2940 022216 
2941 022222 
2942 022224 
2943 022230 
2944 022232 
2945 022240 


6 
2947 022242 


2950 022256 


1 
2952 022260 
2953 022264 
2954 022272 
2955 022274 


6 
2957 022302 


2960 022314 


1 
2962 022316 
2963 022322 
2964 022326 
2965 022330 


6 
2967 022332 


2968 022336 
3444 022342 


1 
2972 022344 


000420 


105765 
100404 
116564 
000411 


005264 


012764 


013705 
032705 
001401 
005205 


012703 
116401 
005301 
006301 


004771 
000207 


022362 
022376 
022410 
022450 
022464 


000001 
002233 
002233 


000001 
000001 
000024 
000024 
000001 


003416 
000001 


070552 
000024 


022344 


000024 


000024 


000010 
000024 


SELDAT: : 
PU 


1$: 


5$: 


10$: 


15$: 


203: 


PATTBL:: 


<R1,R5> 
DATPATCRS) 

20$ 

+ jae 

PATERN, PATSAV(R4) 
10$ 


DATPATCRS) 
DATPATC(RS),PATSAV(R4) 
10$ 

PATSAV(R4) 

+ ta ais 
#1. ,PATSAV(R4) 


BYTES,RS 
#BITO,RS 
15$ 

R5 


#WRTBUF ,R3 
PATSAV(R4), »R1 


Ri 
PC, @PATTBLC(R1) 
<R5,R1> 


PATGN1 
PATGN2 
PATGN3 
PATGN4 
PATGNS 


;SAVE R1 AND R5 

;TEST DATPAT FOR A _TEST PATTERN 

;BRANCH IF WE DON'T NEED ONE 

;PATTERN SPECIFIED IN SOFTWARE P-TABLE ? 
NO, KEEP GOIN 

;PUT THE PATTERN IN THE SAVE LOCATION 


;D0 WE WANT ROTATING DATA PATTERNS ? 
;IF NEGATIVE GO TO 5$ 

;LET PATSAV EQUAL DATPAT v 
;BRANCH 

#ADD 1 TO PATSAV 

ARE WE AT THE END OF THE PATTERN TABLE ? 
iN. KEEP GOING 

AT THE END, LET PATSAV EQUAL 1 


;PUT THE BYTE COUNT IN R5 

;IS THE BYTE COUNT ODD ? 

;BRANCH IF NOT 

;MAKE BYTE COUNT EVEN FOR PATGEN 


;POINT R3 TO THE WRITE BUFFER 
;SAVE PATSAV_IN R1 

;ADJUST FOR TABLE STEP 

sMAKE IT MOD 2 OFFSET 


;GO FILL THE BUFFER 
sRESTORE RS AND R1 
;RETURN 


;ALL 1'S 

;ALL O'S 

;WORST CASE MFM 
;ALTERNATE 1'S AND O'S 
;RANDOM DATA 


| GLOBAL AREAS 


022356 
022360 


0 
022362 


022374 
022376 


022406 


2 
022410 


022410 
022414 
022420 
022422 
022426 
022432 
022434 
022440 
022444 
022446 


022450 
022450 
022454 
022460 
022462 


0 
022464 


022502 


“ 
022504 


022516 
022520 


022552 
022556 


——— i rT 


JO 
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, SELECT DATA PATTERN 


022504 
022520 


012723 


000207 


005023 


000207 


012723 


000207 


012723 
162705 
001373 
000207 


004737 
013723 
162705 
001371 
000207 


012723 
162705 
001373 
000207 


012702 
012723 
162705 
001440 
162702 
001420 
012723 
162705 
001430 


177777 
000002 


000002 


133333 
000002 


155555 
000002 


066666 
000002 


125252 
000002 


022716 
003426 
000002 


167356 
000002 


001000 
133333 
000002 


000002 


155555 
000002 


PATGN1: 


PATGNe: 


PATGN3: 


1$: 


PATGN4: 


PATGNS: 


PATGN6: 


PATGN?: 
P 


1$: 
3$: 


eS LT 


PATGN6 
PATGN7 
#-1,(R3)+ 
#2,R5 
PATGN1 

PC 


#133333, (R3)+ 
#2,R5 


1$ 

#155555, (R3)+ 
#2,R5 

1$ 
#066666 , (R3)+ 
#2,R5 

PATGN3 

PC 


#125252, (R3)+ 
#2,R5 

PATGN4 

PC 

PC,RANGEN 
RANWRD , (R3)+ 
#2,R5 

PATGNS 

PC 


#167356,(R3)+ 
#2 ,R5 

PATGN6 

PC 


<R2> 
#512. ,R2 
4 atti 


10$ 
#2,R2 


#155555, (R3)+ 
#2,R5 


10$ 


31110 REPEATING PATTERN 
;COMBINATION PAT 3 AND 5 


;PUT ALL_1'S INTO THE BUFFER 
;SUBTRACT TWO FROM R5 

;KEEP GOING IF WE AREN'T AT O 
;RETURN 


;PUT ALL_0O'S INTO THE BUFFER 

;SUBTRACT TWO FROM RS 

;KEEP GOING IF WE AREN'T AT 0 
ETURN 


;PUT THE NUMBER INTO THE BUFFER 

;SUBTRACT TWO FROM RS 

;KEEP GOING IF WE AREN'T AT O 

;PUT THE NUMBER INTO THE BUFFER 

;SUBTRACT TWO FROM R5 

sKEEP GOING IF WE AREN'T AT O 
PUT THE NUMBER INTO THE BUFFER 

; SUBTRACT TWO FROM RS 

a IF WE AREN'T AT O 


;PUT ALTERNATING 1 AND O INTO THE BUFFER 
;SUBTRACT TWO FROM R5 
; a IF WE AREN'T AT O 


;GO GENERATE RANDOM PATTERN 
;PUT_ THE NUMBER INTO THE BUFFER 
;SUBTRACT TWO FROM R5 

;KEEP GOING IF WE AREN'T AT O 
RETURN 


;PUT 1110 REPEATING IN BUFFER 
;SUBTRACT TWO FROM RS 
ot as IF WE AREN'T AT O 


;RET 


;PUT THE NUMBER INTO THE BUFFER 
;SUBTRACT TWO FROM RS 
;KEEP GOING IF WE AREN'T AT 0 


‘PUT THE NUMBER INTO THE BUFFER 
‘SUBTRACT TWO FROM RS 
‘KEEP GOING IF WE AREN'T AT 0 


GLOBAL AREAS 


3035 022560 
3036 022564 
303 


seas 022642 


ae cee ee 


K6 
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SELECT DATA PATTERN 


162702 


000207 


000002 


066666 
000002 


000002 


000002 


10$: 


#2,R2 

S$ 
#066666 , (R3)+ 
#2,R5 

10$ 

#2 ,R2 

3$ 

#512. ,R2 

PC ,RANGEN 
oe 


eee ee ee | ee ae ee oe - ee 


BLOCK YET 
YES DO NEXT Block IN PATTERN 5 


;GO GENERATE RANDOM PATTERN 

’ ER INTO THE BUFFER 
;SUBTRACT TWO FROM RS 

sKEEP GOING IF WE AREN'T AT O 
sHAVE WE DONE A FULL BLOCK YET 
sYES DO NEXT BLOCK IN PATTERN 5 


;RETURN 


L6 
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SELECT RECORD 


3055 -SBTTL SELECT RECORD 

seas 5 ESSERE EEEEEEEEE EEE EEEES 

3058 ; SELECT RECORD 

3059 

3060 iCealled by : CMDBLD 

3061 ;Calls to : RANGEN 

3062 ;Outputs ITERS (number of iterations for this set) 

3063 jlenieter Inputs: R5 - pointer to test command table 

3064 ; R4 - pointer to LUN BLOCK 

3065 ; 

3066 

3067 022644 SELREC:: 

3068 022644 005765 000004 TST ITRCNTC(RS) ;TEST THE ITERATION COUNT 
3069 022650 001016 BNE 10$ ;IF IT ISN'T O THEN BRANCH 
3070 022652 004737 022716 5$: JSR PC ,RANGEN ;GO TO THE RANDOM GENERATOR 
3071 022656 023727 003426 003720 CMP RANWRD , #MAXITR 31S THE ITERATION COUNT TO HIGH ? 
3072 022664 101372 BHI 5$ :G0 TRY AGAIN 

3073 022666 023727 003426 000144 CMP RANWRD , #MINITR 1S a ITERATION SET TOO SMALL ? 
3074 022674 103766 BLO 5$ G0 T AGAIN 

3075 022676 013737 003426 003420 MOV RANWRD,ITERS eAVE THE RANDOM NUMBER 
3076 022704 000403 BR 15$ ;EXI 

3077 022706 016537 000004 003420 103: MOV ITRCNTC(RS),ITERS ;SAVE THE ITERATION COUNT 
3078 022714 000207 15$: RTS PC ;RETURN 


SEQ 76 


LL ~~ eee = 


COM. AREAS 


RANDOM NUMBER GENERATOR 


3080 


90 
3091 022716 


3115 023046 


M6 
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016437 


013764 
000207 


ee ee ee 


003432 
003434 


003430 
203432 
003434 


003426 
000144 
000146 
000150 


-SBTTL RANDOM NUMBER GENERATOR 


§ FSSSSSSSSeeeseesesesesesese 


; RANDOM NUMBER GENERATOR 


; iCal led 
jOuteu ts 


hep: eters Used : 


RANGEN: : 


by 


: BYTCNT, SELDAT, SELREC 
: RA AN3 


RANI, RAN2, 
ANWRD 
RS 


<RS> 
SEED1(R4), RANI 
SEED2(R4), RAN? 
SEED3(R4),RANS 
RAN1,RS 


RS,RAN2 

RAN1 ,RANWRD 
RAN1, SEED3(R4) 
RAN2 , SEED2(R4) 
RAN3, SEED3(R4) 
<R5> 


PC 


— eee ae -— — 


SAVE RS 


3;PUT 

;PUT 
3;PUT 
sMOVE 

:CLEA 
;DECR 


:REST 
xIT 


SEED1 INTO RANI 
SEED2 INTO RAN2 
SEED3 INTO RAN3 
THE FIRST SEED INTO RS 
R THE CARRY FLA 
EMENT THE THIRD SEED 


THE SECOND SEED TO RS 
IT ALL_IN THE FIRST SEED 
THE THIRD SEED INTO R5 


THE SECOND SFED TO RS 


IT IN THE SECOND SEED 

THE FIRST SEED INTO RANWORD 
RAN1 INTO SEED1 

RAN2 INTO SEED2 

RAN3 INTO SEED3 

ORE RS 


SEQ 77 
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QUEVE COMMANDS 
3117 -SBTTL QUEUE COMMANDS 
sie FESSSSSSSSSSSSSSESESESSSESESESEEES 
| 3120 ; QUEUE COMMANDS 
| 3122 ;Celled by : CHMDSG 
| 3158 Register Input a3 ter t t slot 
egister Inputs: - nter to next slot in rin 
| 3138 ” a pointer teimaom 
3126 ;Register Output: R3 - updated to point to next available slot 
tH sRegisters Used : RS - Points to dummy packet 
3129 . 
3130 023050 QCMD: : 
3131 023050 022703 003344 CMP #PCBEND ,R3 ;IS R3 POINTING AT THE END OF THE RING ? 
3132 023054 001002 BNE 1$ ;NO, THEN KEEP GOING 
3133 023056 012703 003264 MOV oat wal R3 :YES, SET IT TO THE _ A > atta 
3134 023062 012705 003344 1$: MOV »R5 ;POINT RS TO THE DUMM KET 
3135 023066 116563 000000 000000 MOVB CHOCRS): CMO(R3) ;PUT THE COMMAND OUTAITIVE INTO THE RING 
he 023074 016563 000002 000002 MOV ITMOFF(RS), ITMOFF(R3) ;PUT THE ITEM OFFSET INTO THE RING 
3138 023102 004737 023276 JSR PC,OBCTHD ;GO GET THE OBJECT COUN 
3139 023106 016463 000034 000004 MOV OBJUFOL(R4), OBOFFL(R3) ;PUT THE LOW FIELD oto THE RING 
ster 023114 016463 000036 000006 MOV OBUF DH(R4) , OBOFFH(R3) ;PUT THE HIGH FIELD INTO THE RING 
3142 023122 004737 023142 JSR PC,SUBITR :GO TO SUB-ITERS 
3143 023126 013763 003422 000012 MOV BUFADR, BUF OFF(R3) ;PUT THE BUFFER ADDRESS INTO THE RING 
3144 023134 062703 000014 ADD #PCBST P, R3 ;MOVE R3 TO THE NEXT SLOT IN THE RING 
3145 023140 000207 RTS PC ;RETURN 


tea 
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023142 


023236 
023240 


023274 


— 2s ee ee eee 





a ae 





B/ 
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105763 


000207 


000000 
000020 


003424 
000004 
050552 
000020 
000003 
070550 


000020 
000006 


000040 
070552 


000000 


070550 


002114 
003422 


000000 
002114 


000000 
003422 


-SBTTL SUB-ITERATION 


FPSSSSSASSESS SHES EEEEEEEEEE 


; SUB-ITERATION 


Called by : QCMD 

;Outputs : BUFADR 

epi oter Inputs: R3 - pointer to command slot 

: R4 - pointer to LUN BLOCK 

SUBITR: : 
TST CMD(R3) sARE WE ISSUING NULL COMMANDS ? 
BEQ 10$ ;BRANCH IF THE NULL COMM AND 
CMPB #WR ,CMDCR3) ;I1S IT GREATER THAN A WRITE 
BLO 10$ ;YES, BRANCH 

1$: DEC SUBCNT ;SUBTRACT 1 FROM SUBCNT 
BNE 5$ s;BRANCH IF NOT O 
MOV ated WRTBUF -2 ;PUT LOW ata OBJECT COUNT IN WRTBUF 
MOV #N, SUBCN sREINIT SUBCNT 

4$: MOV @ROBUF , SUF ADR ;PUT re READ BUFFER ADDRESS IN BUFADR 
CMPB #WR,CMD(R3) :IS IT A WRITE COMMAND 
BNE 10$ 7 OUT IF IT’S NOT 
CMP #3,L$TEST ARE WE IN TEST 3 ? 
BNE 7$ ;NO, SET WRITE BUFFER IN BUF ADR 
MOV #WRTBUF -2,BUFADR ;SET MODIFIED WRITE BUFFER IN BUFADR 
BR 10$ EXIT 

S$: CMPB #WR ,CMDC(R3) ;SEE IF zs A WRITE 
BEQ 7$ ;YES, BRANCH 
CMP #6,L$TEST ;ARE WE IN TEST 6 ? 
BEQ 4$ :YES, PUT READ BUFFER IN BUF ADR 
MOVB #ACC ,CMD(R3) ;SET UP A COMPARE HOST DATA COMMAND 

7$: MOV #WRTBUF ,BUFADR ;SET WRTBUF ADDRESS IN BUF ADR 

10$: RTS PC ;RETURN 


Mae, 


- —— -- 
SO LL LSS SS. ssshsss 


a eT am ee + ee 


C7 
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_ OBJET COUNT HANDLE 

3184 .SBTTL OBJET COUNT HANDLER 

3182 RRR REREREEEEE EEE EE 

1 H 

ty 4 ; OBJECT COUNT HANDLER 

3189 ;Called by QCMD 

3190 :Inputs Current Object Count in LUN BLOCK 

3191 ;Outputs ces Ob ject Count in LUN BLOCK 

3192 ;Register Inputs: R3 - pointer to command slot 

3193 : - pointer to LUN BLOCK 

3194 3 

3195 

3196 023276 OBCTHD: : 

3197 023276 PUSH <R1i> ;SAVE Ri 

3198 023300 116301 000000 MOVB CMD(R3),R1 ;PUT THE COMMAND PRIMITIVE INTO R1 

3199 023304 042701 000007 BIC #7,R1 ;STRIP OFF THE MODIFIERS 

3200 023310 005701 TST Ri ;1S IT THE NULL COMMAND ? 

3201 023312 001452 BEQ 6$ ;EXIT ar at 3S 

3202 023314 022701 000160 CMP #REW,R1 31S IT A REWIND ? 

3203 023320 1005 BNE 1$ ;BRANCH IF NOT 

32 23322 005064 000034 CLR OBJFDL(R4) ;CLEAR THE OBJECT 

3205 023326 005064 000036 CLR OBJFDH(R4 ) ; COUNT FIELD AND 

ssor 023332 000442 BR 6$ ;EXIT 

3208 023334 022701 000050 1$: CMP #SPC,R1 :I1S IT A eee TRANSFER COMMAND ? 

3209 023340 101007 BHI 2$ ;BRANCH 1 J 

3210 023342 022701 000100 CMP #W™M,R1 :IS ITA WRITE TAPE MARK ? 

3211 023346 001404 BEQ $ ;BRANCH IF IT IS 

3212 023350 016337 000002 003530 MOV ITMOFFC(R3),R8 ;PUT THE ITEM COUNT IN TEMP REGISTER 

asta 023356 000403 BR 3$ ; CONTINUE 

3215 023360 012737 000001 003530 23: MOV #1,R8 ;PUT A 1 IN THE oo — 

3216 023366 032763 000002 000000 33%: BIT #EOTBIT,CMDCR3) ;1S IT AN LEOT COMMAND ? 

3217 023374 001021 BNE 6$ ;GET OUT IF IT 

3218 023376 032763 000001 000000 BIT #REVBIT ,CMDCR3) ;I1S THE COMMAND REVERSE ? 

3219 023404 001007 BNE 4$ :BRANCH IF REVERSE 

3220 023406 063764 003530 000034 ADD R8, OBUFDL(R4) ;ADD TEMP TO Ys OBJECT COUNT 

3221 023414 103011 BCC 6$ ; BRANCH IF NO CARRY 

3222 023416 005264 000036 INC OBUFDH(R4 ) ;OTHERWISE ADD 1 TO THE HIGH OBJECT COUNT 

sh 023422 0004 BR 6$ ;EXIT 

3225 023424 163764 003530 000034 4$: SUB R8,OBJFDL(R4) ;IF REVERSE, SUBTRACT TEMP FROM on # 

3226 023432 103002 BCC ; OBJECT COUNT AND BRANCH IF NO CAR 

3227 023434 005364 000036 DEC OBJFDHC(R4 ) ;OTHERWISE SUBTRACT 1 FROM OBJECT COUNT HIGH 

3228 023440 6$: PoP <R1> sRESTORE Ri 

3229 023442 000207 RTS PC ; 


eee ae 
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Ww 
fw 
w 
— 


3249 023444 


3262 023516 
3264 023520 


3268 023534 


9 
3270 023540 
3271 023544 
3272 023550 


3274 023552 
3275 023560 


3281 023610 


2 
3283 023612 
3284 023620 
3285 023626 
3286 023630 
3287 023636 


ee 
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016405 


001003 


004737 
000464 
005764 
001402 
004737 


004737 
105737 
001052 


032737 


000403 


112737 
123737 
103004 
052737 
000417 


000016 
000040 


003264 
000014 
000044 
010546 
000170 
026306 
000010 
026230 
023710 
010546 
000020 
000200 
000200 
000001 
000002 
010571 
020000 


003516 


000000 


003516 
003516 
000000 
010570 
610570 
010546 


-SBTTL CLASS DRIVER TRANSMIT 
PIPPI t iti titi t Piri rririrr rie) 


;Class Driver Transmit 


:Called By 
;Calls To 


;Inputs 


Outputs 


iRegister Inputs: 


CLSDRV:: 


20$: 


25$: 


30$: 


35$: 
40$: 


: CMMDS 


Q 
: CORECV, STFPCK, PRTDRV 
: CROLIM - Command slots open in the drive. 
COLSAV - Old driver command pointer. 
: IOSTAT - Transfer status. 
CMDSEQ - Number appended to each command packet. 
GCSREF - Get Command Status reference number. 
R2 - Old pointer to program command ring. 
ae - New pointer to program command ring. 
- Lun block pointer. 
Register Outputs: RS - Old pointer to driver command ring. 


<R3,R5> 
COLSAV(R4),RS 
#GCSRFL ,PCFLAG 
10$ 

#PCMDBF ,R3 

5$ 


#PCBSTP ,R3 
10$ 


#PCB3SP ,R3 
IOSTAT 
#INT,CMDCR3) 
15$ 


PC,PRTINT 

55$ 

SLTUSE(R4 ) 

20$ 

PC,PRTCLR 

PC ,CDRECV 
IOSTAT 

55$ 

SL PL 
#CMDONE , PCFLAG 
55$ 
#IMM,CMD(R3) 
35$ 

#1,MINLIM 

40$ 

#2,MINLIM 
CROLIM,MINLIM 
45$ 
#IOICRD,IOSTAT 
55$ 


NO, MOVE R3 ONE SLOT BACK 
; CONTINUE 


sIS THIS A GCS COMMAND ? 
oe GO SETUP MINLIM 


;EXIT IF 


sNO, SET MINIMUM LIMIT TO 2 


ee 


SAVE R3, RS 

;POINT RS TO THE a DRIVER COMMAND 

IS THIS A GCS COMMAND ? 

YES, GO SETUP 

;IS R3 AT THE BEGINNING OF THE PROGRAM RING ? 
YES, BRANCH 


;YES, ADVANCE R3 TWO SLOTS 

;CLEAR THE 1/0 STATUS WORD 

:IS THIS A Pa COMMAND ? 
sCONTINUE IF IT ISN’ 


;CALL THE PORT INIT ROUTINE 
;EXIT 


;DID WE HANDLE ANY RESPONSES LAST TIME ? 
;BRANCH IF NOT 
sGO CLEAR THE OLD RESPONSES 


>GO CHECK FOR ANY er ig thee 
sIS_ THE I/0 STATUS 0.K 
sEXIT IF IT ISN'T 


THIS A + COMMAND ? 


ITI 
Hf a oa IMMEDIATE COMMAND ? 
;YES, SET MINIMUM LIMIT TO 1 

; BRANCH 


;D0 WE HAVE ENOUGH CREDITS ? 
YES, KEEP GOING 
:SET et sae CREDIT IN I/O STATUS 


SL LL TT TT < etc— st ne ee tm 


3288 


3289 023640 
3290 023644 


. ee a ee ee oe 





E/ 


wy MACRO YO5.02 mureeey 18-Apr-85 13:37 Page 42-1 
LASS DRIVER TRANSMIT 


005264 
032737 
001403 
016437 


105337 
004737 
004737 
010564 


000207 


000006 
000020 


000006 
010571 
024164 
025730 


000016 


CMDSEQ(R4) 
#GCSCFL ,PCFLAG 


0 
CMDSEQ(R4) , GCSREF 
CRDLIM 
PC,STFPCK 
PC,PRTDRV 


RS,COLSAV(R4) 
<R5,R3> 


SN 


SEQ 82 


;ADD 1 10 THE COMMAND SEQUENCE NUMBER 
:1S TTA GCS COMMA ND ? 
;SAVE THE COMMAND REFERENCE NUMBER 


;SUBTRACT 1 FROM hig | =" LIMIT 
GO FILL THE TMSCP PACKE 
3GO SEND THE COMMAND 


;SAVE RS IN ey OLD POINTER SAVE 
RESTORE R3, AND RS 


“GLOBAL AREAS 


| 3302 


S44 023732 
3329 023740 


ot 024002 


3340 024004 
3341 024012 
3342 024016 
sees 024020 


3345 024022 


3354 024062 
3355 024070 
3356 024074 
3357 024100 
3358 024102 


ee ed ees eee ee 
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016401 
004737 
005737 
001506 
013737 


022761 


000461 
112737 
004737 
000240 
000452 


032761 


012705 
016162 


012702 


000020 
008414 
003414 
000022 
000000 
000000 
010552 
026530 


000005 
033734 


000200 


100000 
010571 
000050 
004032 


003572 
000012 
000014 
003344 


003264 


003412 
000012 


000000 
000000 


010546 


000010 
010546 


000010 


-SBTTL CLASS DRIVER RECEIVE 
5 REE EERE REE EERE EERE RR ER 


:Cless Driver Receive 





iCalled By : CLSDVR 

:Calls To : PORECV, PRTCLR 

; Inputs : RESP - The number of RESPONSEs found. 

H GCSREF - Get Command Status reference number. 


; RNUSAV - New response buffer save 
; CMSTSV - Command progress count. 
ELBSAV - Error log buffer pointer. 
° 


Register Inputs: R2 - Old pointer 


program command ring. 


; R3 - New pointer to program command ring. 


; R4 - Lun block pointer. 
; RS - Old pointer to dri 
sRegisters Used : Ri - Old ot end to dri 


CDRECV: : 
PUSH <R1,R 
MOV RNUSAVCRA), Ri 
JSR PC,PDRECV 
RESP 


TST 
BEQ 35$ 
MOV RESP , HNDLRP 
S$: CMP #ST.SEX,P.STSCR1) 
BEQ 10$ 
TST P.CRFC(R1) 
BEQ 10 
CMP P.CRF(R1),P.CRFCRS) 
BEQ 10$ 
CMP GCSREF ,P.CRF(R1) 
BNE 7$ 
JSR PC,GCSHDL 
BR 35$ 
7$: MOVB #MISSEQ, IOSTAT 
JSR PC, CORDMP 
NOP 
BR 35$ 
10$: BIT #0P .END,P.OPCD(R1) 
BEQ 


20$ 
BIS #NURESP , IOSTAT 
INCB CROLIM 
ADD #DCBSTP,RS 
CMP #DCBEND,R5 


15$ 

MOV #DCMDBF ,R5 

15$: MOV P.STS(R1),XFERST(R2) 
ADD #PCBSTP,R2 
CMP #PCBEND ,R2 


25$ 
MOV #PCMDBF ,R2 


iver command ring. 
iver RESPONSE ring. 


i SAVE Ri, 


R2 
LET R1 = NEW wi eae SAVE 


CALL PORT DRIVER REC 


D WE GET A ye ? 


NO, GET OUT OF 
;SAVE A COPY FOR RSPHDL 


;YES, 


;I1S IT AN UNSOLICITED tone LOG ? 


;YES, GO HANDLE ERROR 


sIS IT A SERIOUS EXCEPTION ? 
NTINUE 


LOG 
si8 THIS La COMMAND THAT IS EXPECTED ? 


CONT 


INUE 
‘Ts IT THE GCS END PACKET 
;NO, GO DO RESPONSE OUT OF SEQUENCE 
G0 TO THE GCS HANDLING ROUTINE 


;SET MISSING SEQUENCE IN I/0 STATUS 


;EXIT 


YES, IS IT AN END PACKET ? 


iNO, GO HANDLE ERROR L 


LOG 
T A NEW RESPONSE IN Ls I/0 STATUS 


;ADD 1 TO THE CREDIT 


<. ae END OF THE RING ? 
;YES, SET IT TO THE TOP OF THE RING 


LIM 
ee THE OLD COMMAND POINTER 


3NO, 


sPUT REPSONCE STATUS IN THE HOST PACKET 


;ADJUST R2 TO POINT AT THE NEX : SLOT 
;I1S IT AT THE END OF THE RING ? 


:NO, 


BRANCH 
;YES, SET IT BACK TO TOP OF THE RING 


G/ 
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3359 024106 000403 BR 25$ ;BRANCH TO THE END 
3361 024110 052737 040000 010546 20$: IS #ERRLOG, IOSTAT ;SET ERROR LOG IN 1/0 STATUS 

003414 25$: OD RESP 

| 

j 


3362 024116 005337 ;SUBTRACT 1 FROM THE RESPONSE COUNT 
3363 024122 062701 000104 ADD #DRBSTP,R1 ;ADJUST Ri 

3364 024126 026401 000160 CMP URBEND(R4),R1 31S IT AT THE END OF THE RING ? 

3365 024132 001002 BNE 30$ ;NO, KEEP GOING 

3366 024134 016401 000156 MOV URSPBF(R4),R1 ;YES, SET IT TO BEGINNING OF THE RING 


7 
3368 024140 005737 003414 30$: TST RESP ;HAVE WE DONE ALL THE RESPONSES ? 
S544 024144 001275 BNE 5$ ;NO, DO IT AGAIN 


3371 024146 005037 003414 35$: CLR RESP »CLEAR NOW IN CASE WE MADE ERROR EXIT 
3372 024152 010164 000020 MOV R1,RNUSAV(R4) ;SAVE THE NEW RESPONSE BUFFER POINTER 
3373 024156 POP <R2,R1> ;RESTORE R2,R1 

3374 024162 000207 RTS PC ;RETURN 


———— CO. ee 


GLOBAL AREAS 


OMMAND STUFFE 


3392 024164 


3403 024240 
3405 024244 


esis 024302 
3413 024310 


3416 024326 
3418 024334 


3425 024362 
3427 024366 


ee ee eee 


005037 


000137 
016361 


052761 
032764 


042764 


116302 
006202 
006202 
042702 
022702 
103002 
000137 
000172 


024436 


024542 


010564 


000020 
025400 
000002 
000016 
000000 
177770 
000001 
000010 
000002 


020000 
000002 


000000 
177701 
000046 


025604 
024366 


000000 
000004 


003516 


000014 
003530 
003530 
003530 
000012 
000026 


C00012 
000026 
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.SBTTL COMMAND STUFFER 
5 ERERR EEE RE REE RE REE EERE EEE E ERE 


; Stuff TMSCP Command Packet 


;Called 
; Inputs 


Quteute 


;Register Inputs: 


;Registers Used : 
STFPCK: : 
P 


5$: 


10$: 


15$: 


20$: 


CMDTBL: . 


By 


: CLSORV 
: & 


Points to next slot in the driver command ring. 
Number appended to each command packet. 


GCSREF " Get Command Status reference number. 


Flag set non-zero on occurrence of a serious exception. 


: PCKSIZ - Length in bytes of the command packet. 
R3 - New pointer to program command ring. 


R4 - Lun block pointer. 
RS - Old pointer to driver command ring. 
Rl - New pointer to driver command ring. 


<R1,R2> 
P 


AVCR 
CMDSEQ(R4),P.CRFCR1) 
P.CRF+2(R1) 
siaett ackls” UNITC(R1) 
P.UNIT+2(R1) 

P.MODCR1 

+ paints 
GCMDST 
ITMOFF(R3),P.BCNTC(R1) 
P.BCNT+2(R i) 

#REVBIT, ‘R8 

10$ 

#MD.REV,P.MODCR1) 

+ 7 remaster 


15 
#MD.CSE,P.MODCR1) 
#SEREXC ,LUNFLG(R4) 


CMD(R3),R2 
Re 

Re 

#tC076,R2 
#46 ,R2 

20$ 

ILCMD 
@CMDTBL(R2) 


ACCESS 
SPCRIEC 


s;SAVE R1 AND R2 

s;CLEAR PACKET SIZE 

sLET R1 EQUAL THE NEW COMMAND POINTER 
sPUT COMMAND SEQUENCE NUMBER INTO PACKET 
;CLEAR THE UPPER WORD 

;PUT THE UNIT NUMBER INTO THE PACKET 
;CLEAR THE UPPER WORD 

;CLEAR MODIFIERS FIELD 

sARE WE IN GCS COMMAND MODE ? 

;NO, CONTINUE 

YES, GO DO A GET COMMAND STATUS 


;PUT THE BYTE COUNT INTO THE PACKET 
;CLEAR THE UPPER WORD 

;PUT THE PRIMITIVE IN R8 

;GET JUST THE MODIFIERS 

3IS fay Oa A REVERSE ? 


NCH 
YES, SET REVERSE IN THE MODIFIER FIELD 


14 pas ee EXCEPTION CONDITION ? 
YES, SET CLEAR SERIOUS EXCEPTION 
;CLEAR SERIOUS EXCEPTION FLAG 


sPUT THE COMMAND PRIMITIVE INTO R1 


S ADJUST FOR_THE CASE STATEMENT 
sARE WE IN THE RANGE ? 

YES, KEEP GOING 

;NO, HANDLE AN ILLEGAL COMMAND 
; SELECT 


ee cee one me ee 


-4 
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024402 


024434 
024436 


024442 
024450 
024456 


024462 
024470 
024476 


024502 
024510 
024516 


024522 
024530 
024536 


024542 


024660 


024664 
024672 
024700 
024704 
024710 


a ee ee 
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024610 


025440 
025466 


000137 


012761 
012737 
000137 


012761 
012737 
000137 


012761 
012737 
000137 


012761 
012737 
000137 


012761 


000137 
012761 


000137 


012761 
052761 
005061 
005061 
012737 


025700 


000041 
000034 
025616 


000042 
000034 
025616 


000040 
000034 
025616 


000020 
000020 
025650 


000045 
000020 
000022 
000002 


000200 
000024 
025650 


000045 
000014 
000022 
000014 
000002 


000200 
000024 
025650 


000045 
000004 
000020 
000022 
000024 


000010 
010564 


000010 
010564 


000010 
010564 


000010 
010564 


000010 
003530 
000012 
010564 


000010 
000020 


003530 
000012 
010564 


000010 
000012 


010564 


nia aes 


NULL : 
READ: 


WRITE: 


CHODAT : 


ACCESS: 


SPCREC: 


70$: 


SKPTMK: 


100$: 


SPCOBU: 


SKPTMK 


SCNTCH 
COMEXI 


#0P .RD,P.OPCD(R1) 
#34 ,PCKSIZ 
BUFDSC 


#0P .WR,P.OPCDCR1) 
#34 ,PCKSIZ 
BUFDSC 


#0P .CMP ,P.OPCD(R1) 
#34 ,PCKSIZ 
BUFDSC 


#0P .ACC,P.OPCD(R1) 
#20 ,PCKSIZ 
SUPRES 


#0P .REP,P.OPCD(R1) 
P.TMGCC(R1) 
P.TMGC+2(R1) 
#EOTBIT ,R& 


70$ 

#MD.DLE ,P.MOD(R1) 
#24 ,PCKSIZ 
SUPRES 


#0P .REP,P.OPCD(R1) 
P.BCNT(R1),P.TMGC(R1) 
P.TMGC+2(R1) 
P.BCNTCR1) 

#EOTBIT,R& 


100$ : 
#MD.DLE,P.MODCR1) 
#24 ,PCKSIZ 

SUPRES 

#0OP .REP,P.OPCD(R1) 
TE aati 


#24,PCKSIZ 


;EXIT 


;PUT THE READ OPCODE INTO THE PACKET 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE BUFFER DESCRIPTOR ROUTINE 


;PUT THE WRITE OPCODE INTO THE PACKET 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE BUFFER DESCRIPTOR ROUTINE 


s;PUT COMPARE HOST DATA OPCODE IN PACKET 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE BUFFER DESCRIPTOR ROUTINE 


;PUT THE ACCESS OPCODE INTO THE PACKET 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE SUPPRESS ROUTINE 


;PUT REPOSITION ae | a THE PACKET 
;CLEAR THE TAPE MARK COUNT 
;CLEAR THE UPPER WORD 
;I1S THE DETECT LEOT BIT SET ? 
iNO, CONTINUE 

;YES, SET DETECT LEOT IN THE MODIFIER 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE SUPPRESS ROUTINE 


;PUT THE REPOSITION OPCODE IN PACKET 
;PUT THE TAPE MARK COUNT IN PACKET 
;CLEAR THE TAPE MARK FIELD 

;CLEAR THE UPPER WORD 

;IS THE DETECT LEOT BIT SET ? 

3NO, CONTINUE 

;YES, SET DETECT LEOT IN THE MODIFIER 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE SUPPRESS ROUTINE 


;PUT THE REPOSITION OPCODE IN PACKET 
SET THE OBJECT BIT IN THE MODIFIER 
;CLEAR THE TAPE MARK FIELD 

;CLEAR THE UPPER WORD 

;PUT THE PACKET SIZE INTO THE PACKET 


— eee ee a ee = 
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3490 
34 


COMMAND STUFFER 


024716 


024722 
024730 
024736 
024744 


6 
024750 


025002 


04 025006 


025014 
025022 


025026 
025034 
025042 
025044 
025052 
025060 


025064 


025150 
025156 


025162 


025246 


025254 
025262 
025270 


ee ee 
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000137 


012761 
052761 
012737 
000137 


012761 


012737 
000137 


012761 
012737 
000137 


012761 
022737 
001403 
052761 
012737 
000137 


012761 


000137 
012761 


012737 


012761 
052761 
022737 


025650 
000044 
020000 
000014 
025700 


000022 
000003 


000100 
000014 
025700 
000026 


000014 
025700 


000010 
000004 


000020 
000014 
025700 


000011 
000014 
000016 
000020 
000022 
000024 
000026 
000030 
000032 
000034 
000010 
000042 
000044 
025700 


000012 


000044 


000045 
020002 
000003 


000010 
000012 


' 010564 


000010 
003530 


000012 
010564 


000010 
010564 


000010 
003530 
000012 
010564 


000010 


000040 
010564 


000010 


000040 
010564 
000010 


000012 
003530 


J/ 
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WTAPMK : 


ERASE: 


20$: 


ERASGP : 


AVALAB : 


10$: 


ONLINE : 


SUNCHR : 


REWIND: 


JMP 


SUPRES 


#0P .WTM,P.OPCD(R1) 
#MD.CSE,P.MODCR1) 


#0OP..ERS,P.OPCD(R1) 
#IMMBIT ,R8 


20$ 
#MD.IMM,P.MOD(R1) 
#14 ,PCKSIZ 

COMEXI 


#0P .ERG,P.OPCDCR1) 
#14 ,PCKSIZ 
COMEXI 


#0P..AVL,P.OPCDC(R1) 
#UNLBIT ,R8 


10$ 

#MD .UNL ,P.MODCR1) 
#14 , PCKSIZ 

COMEXI 


#0P. Oe P.OPCD(R1) 
P “2 


.UNFL+10(R1) 
-UNFL+12¢€R1) 
-UNFL+14(R1) 


P .DVPM(R1) 

#TF ..BLK,P.FORMCR1) 
P.SPED(R1) 

#44 ,PCKSIZ 

COMEXI 


Pp 
Pp 
-. 
hte ef 
Pp 
Pp 


#0P .SUC,P.OPCD(R1) 
P.UNFL-2(R1) 
P.UNFL(R1) 
P.UNFL+2(R1) 
P.UNFL+4(R1) 
P.UNFL+6(R1) 
P.UNFL+10(R1) 
P.UNFL+12(R1) 
P.UNFL+14(R1) 
P.DVPMC(R1) 

#TF .BLK,P.FORM(R1) 
P. SPED(R1) 

#44 ,PCKSIZ 


#OP .REP,P.OPCD(R1) 


;GOTO THE SUPPRESS ROUTINE 


;PUT WRITE TAPE MARK OPCODE IN PACKET 
;YES, SET CLEAR SERIOUS EXCEPTION 
sPUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;PUT_THE ERASE OPCODE INTO THE PACKET 
;1S font Ht BIT SET ? 

;NO, CONTINUE 

;YES, SET IMMEDIATE IN THE MODIFIER 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;PUT ERASE GAP OPCODE INTO THE PACKET 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;PUT AVAILABLE ayes INTO THE PACKET - 
;IS THE UNLOAD BIT SET ? 
iNO. CONTINUE 

;YES, SET UNLOAD IN THE MODIFIER FIELD 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;PUT THE ONLINE OPCODE INTO THE PACKET 
;CLEAR THE UNIT FLAG FIELD 


;CLEAR THE DEVICE PARAMETER FIELD 
;PUT THE TAPE FORMAT INTO THE PACKET 
;CLEAR THE SPEED FIELD 

sPUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;SET UNIT CHARA. OPCODE INTO THE PACKET 
;CLEAR THE UNIT FLAG FIELD 


;CLEAR THE DEVICE PARAMETERS FIELD 
;PUT THE TAPE FORMAT INTO THE PACKET 
;CLEAR THE SPEED FIELD 

;PUT THE PACKET SIZE INTO THE PACKET 


;PUT_ THE REPOSTITION orcoee INTO PACKET 


#MD . -CSEIND. -RWD,P.MODC(R1) ;SET THE REWIND MODIFIER 


#IMMBIT,R 


;1S THE IMMEDIATE BIT SET 


GLOBAL AREAS 
COMMA . 


ND STUFFE 


025276 


025342 


025346 
025354 
025362 
025366 
025374 


64 025400 


025434 


025440 
025446 
025454 
025462 


025466 


94 025604 


025612 
025616 


—— fe ee ee ee 
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001003 
000012 


010564 
000006 
000010 000026 
000137 025700 
000137 025722 


012761 000001 
016561 000000 
005061 000016 
012737 000020 
000137 025700 
012761 


000002 
000000 
05061 000016 
000020 
000020 
025700 


000003 
020000 
000014 
025700 


000004 


000010 
000014 


010564 


000010 
000014 


010564 
003516 
000137 
012761 000010 
000012 
010564 
000137 


012761 
005061 


000010 
000014 


000016 
000020 


002222 
000001 
000040 
025700 


000007 


000034 
010564 
000137 


052737 
000137 025722 


016361 000012 
005061 000022 
000024 
000026 
000030 
000032 


010546 


000020 


IK 7 
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60$ 
BIS ye Ran P.MOD(R1) 
60$: CLR TMGC(R1) 

CLR P. My ot 

MOV #24 ,PCKSIZ 

CLR CMDSEQ(R4) 

BIC #EOTPR,LUNFLG(R4) 


JMP COMEXI 
INIT:  JMP EXIT 
ABOR: MOV #0P .ABO,P.OPCD(Ri) 


MOV P.CRF(RS),P.OTRFCRi) 
CLR P.OTRF+2(R1) 
MOV #20 , PCKSIZ 

COMEXI 


GCMDST: MOV 
MOV P.CRF(RS),P 
CLR P.OTRF+2(R1 
MOV #20,PCKSIZ 
BIC #GCSCFL,PCFLAG 
JMP COMEXI 


GUNSTA: MOV #0P .GUS,P.OPCD(R1) 
BIC #MD.CSE,P.MOD(R1) 
MOV #14 ,PCKSIZ 
COMEXI 


#0P .GCS,P.OPCD(R1) 
"inact 


SCNTCH: MOV #0P.SCC,P.OPCD(R1) 
CLR P.UNIT(R1) 
MOV #MSCPVR ,P.VRSNC(R1) 
MOV CNTFLG,P.CNTF(R1) 


MOV #HSTIMO,P.HTMOCRi) 
CLR P.HTMO+2(R1) 
CLR P.TIME(R1) 
CLR P.TIME+2(R1) 
CLR P.TIME+4(R1) 
CLR P.TIME+6(R1) 
CLR P.CTPM(R1) 
CLR P.CTPM+2(R1) 
TSTB PADING 
BNE 5$ 
BIS #BITO,P.CTPMCR1) 
5$: MOV #40 , PCKSIZ 
JMP COME XT 
ILCMD: BIS #ILLCMD, IOSTAT 
JMP EXIT 


BUFDSC: MOV . BUFF (R1) 


) 
CLR Borat 


SEQ 88 


3NO, CONTINUE 
YES, SET THE Po MODIFIER 
EDUNT 1 Pe 

PUT THE PACKET SIZE INTO THE PACKET 
;RESET THE COMMAND SEQUENCE NUMBER 
;CLEAT THE EOT PRINT FLAG 
;GOTO THE EXIT 


;EXIT 


;PUT THE ABORT OPCODE INTO THE PACKET 
;PUT THE OLD CRN INTO THE PACKET 
;CLEAR THE UPPER WORD 

;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;PUT GCS OPLODE INTO THE PACKET 

;PUT THE OLD CRN INTO THE PACKET 
;CLEAR THE UPPER WORD 

;PUT THE PACKET SIZE INTO THE PACKET 
;CLEAR GCS COMMAND MODE ? 

;GOTO THE EXIT 


;PUT THE GUS OPCODE INTO THE PACKET 
;CLEAR CLEAR SERIOUS EXCEPTION MODIFIER 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;PUT THE SCC eer: INTO THE PACKET 
;CLEAR THE UNIT NUMBER 
;PUT THE MSCP VERSTON INTO THE PACKET 
;PUT CONTROLLER FLAGS INTO THE PACKET 
;PUT THE HOST TIMEOUT INTO THE PACKET 
;CLEAR THE TIME FIELD 


;CLEAR THE FIRDT WORD 

;CLEAR THE SECOND WORD 

;ARE WE ALLOWING WRITE PADDING ? 
;YES, DON'T SET THE BIT 

;SET CNTRL PARAM TO DISABLE PADDING 
;PUT THE PACKET SIZE INTO THE PACKET 
;GOTO THE EXIT 


;SET ILLCMD IN THE I/O STATUS 
;GOTO THE ERROR EXIT 


;PUT THE BUFFER ADDRESS INTO THE PACKET 
;CLEAR THE REST OF THE BUFFER FIELD 


GLOBAL AREAS 
COMMAND STUFFER 


5650 


36 5664 
3608 025670 
3609 025672 
3610 

‘ 3611 025700 
3612 025704 
3613 025710 


3614 025712 
3615 025716 
3616 


3617 025722 
3618 025726 


L/ 


MACRO YOS.02 Thursday 18-Apr-85 13:37 Page 44-4 


105737 
001003 
052761 
105737 
001003 
052761 


062701 
022701 


001002 
012701 
010164 


000207 


002220 


001000 
002221 


000400 


000050 
004032 


003572 
000014 


000012 


000012 


SUPRES: TSTB 
BNE 


BIS 
105$: tdi 


NE 
BIS 
COMEXI: ADD 


110$: MOV 
EXIT: POP 


SERREC 
10 


S$ 
#MD.SEC,P.MODCR1) 
5 sta 


OMEXI 
#MD.SER,P.MODC(R1) 
#DCBSTP,R1 
#DCBEND ,R1 
110$ 
#DCMDBF ,R1 
R1, CNUSAV(R4) 
<R2,R1> 
PC 


SEQ 89 


2, SUPPRESS ERROR CORRECTION ENABLED ? 


YES, SET SEC MODIFIER 
sIS SUPPRESS ERROR RECOVERY ENABLED ? 


NO 
;YES, SET THE SER MODIFIER 


SET THE soe TO THE NEXT SLOT 

oO eaIT. THE END OF THE RING ? 

sYES, SET THE POINTER TO START OF RING 
;SAVE THE POINTER 


sRESTORE R1 
ETURN 


M7 


a ee 
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PORT DRIVER TRANSMIT _ 
3620 -SBTTL PORT DRIVER TRANSMIT 
sess reece TT ETT itii titi itiiit 
2 ; 
3623 :Port Driver Transmit 
3624 ; 
3625 ;Called By : CLSDOVR 
3626 Inputs : CMDSSV - Command descriptor ring pointer. 
3627 $ DCDSAV - Driver command ring pointer. 
3628 ; CROLIM - Number of open slots in the driver command ring. 
3629 PCKSIZ - Length in bytes of the command packet. 
3630 ;Register Inputs: R4 - Lun block pointer. 
3631 sRegisters Used : R2 - Pointer to driver command ring. 
sone ; Rl - Pointer to driver command descriptor ring. 
3634 
3635 025730 PRTORV:: 
3636 025730 PUSH <R3,R2,R1> ;SAVE R3, R2 AND R1 
3637 025736 016402 000014 MOV CNUSAV(R4 ) ,R2 ;POINT R2 AT NEW COMMAND BUFFER SLOT 
3638 025742 016401 000012 MOV CMDSSV(R4),R1 ;LET R1 ay tee TO THE COMMAND DESCRIPTOR 
3639 025746 022702 003572 CMP @DOCMDBF ,R2 ;IS R2 AT TOP OF DRIVER COMMAND Ring 
3640 025752 001403 BEQ 1$ ;YES, BRANCH 
3641 025754 162702 000050 SuB #DCBSTP ,R2 :NO. SUBTRACT DCBSTP FROM R2 
seat 025760 02 BR S$ : 
3644 025762 062702 000170 1$ ADD #DCB3SP ,R2 ;YES, ADD DCB3SP TO R2 
3645 025766 113762 010571 177776 5$ MOVB CROLIM, CRD(R2) ;PUT THE CREDIT LIMIT INTO THE PACKET 
3646 025774 112762 177777 MOVB #1, CONID(R2) ;PUT THE CONNECTION TYPE INTO THE PACKET 
3647 026002 013762 010564 177774 MOV PCKSIZ, MSGLEN(R2 ) ;PUT THE PACKET SIZE INTO THE PACK 
3648 026010 010211 MOV R2,(R1) ;PUT THE PACKET ADDRESS INTO THE pot ot 
3649 026 052761 100000 000002 BIS SOWN, HIADOR(R1 ) ;SET THE OWNERSHIP BIT OF THE DESCRIPTOR 
3650 026020 042761 040000 000002 BIC OFLAG, HIADDR(R1 ) #CLEAR TO DESCRIPTOR FLAG BIT 
3651 026026 005774 000 TST aTKIP(R4) ;READ THE IP REGISTER 
3652 026032 017437 000002 010566 MOV @TKSACR4), SAERR ; SAVE THE SA FOR THE ERROR PRINTOUT 
3653 026040 005737 010566 TST SAERR ;READ THE SA yt ER 
3654 026044 BPL 10$ ; BRANCH IF NO ERRORS 
tt 026046 052737 000003 010546 BIS @IOPDRE , IOSTAT ;SET PORT DETECTED ERROR IN I/0 STATUS 
3657 026054 062701 000004 10$: ADD #OSPSTP,R1 ; ADVANCE ays DESCRIPTOR POINTER 
3658 026060 026401 000170 CMP UCDEND(R4),R1 sARE W  M. T END OF THE DESCRIPTOR RING 
3659 026064 001002 BNE 15$ :NO, BRANCH 
er 026066 016401 000166 MOV UCDSRG(R4),R1 :YES, SET POINTER TO START OF THE RING 
3662 026072 010164 000012 15$: MOV yf CMDSSV(R4) ;SAVE THE POINTER 
3663 026076 POP Ri, R2,R3> sRESTORE R1, R2 AND R3 
3664 026104 000207 RTS pC ;RETURN 


Ae eS ae enn <= oenepees ee 


N7 
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016401 
017437 
005737 


100003 
052737 
006364 
032737 
001403 


005737 
001012 


GLOBAL AREAS 
PORT DRIVER RECEIVE 

3666 

3667 

3668 

3669 

3670 

3671 

3672 

3673 

3674 

3675 

3676 

3677 

3678 026106 

3679 026106 

3680 026110 

3681 026114 
82 026122 

3683 026126 

3684 026130 

3685 

3686 026136 

3687 026142 

3688 026150 

3689 026152 

3690 026156 

3691 


2 
3703 026226 


032761 


001345 
000207 


000162 
000002 
010566 
000003 


000010 
000040 


003414 


100000 


003414 
000001 


000001 
000004 
000164 


010566 


010546 


003516 


000002 


000010 


000010 


-SBTTL PORT DRIVER RECEIVE 


§ SSSSSSSESSSSSSSESSSSESSE SES SESE SESS 


Port Driver Receive 


: CORECV 
: URDSRG - RESPONSE descriptor ring. 


iCalled 
i Input s 


SOutpu ts 


By 


hep eters Used : 


PORECV:: 


1$: 


2s: 


5$: 
10$: 


<R 


URDS 


aT 
SAER 


UCDSRG - Command descriptor ring. 
RESP Number of new RESPONSEs. 
Rl - RESPONSE descriptor ring pointer. 


= SAERR sSAVE THE SA FOR THE 


;sREAD THE SA yt 


SEQ 91 


;SAVE R1 
SRG GCR4),R1 ;SET R1 TO THE RESPONSE DESCRIPTOR 
ERROR PRINTOUT 


1$ ;BRANCH IF NO ERRORS 

#IOPDRE , IOSTAT ;SET PORT DETECTED ERROR IN I/0 STATUS 
SLTUSE(R4 ) + BITMAP 

#GCSRFL ,PCFLAG ARE WE IN GCS MODE ? 

2$ ;NO, DO ALL RESPONSES 

RESP ;HAVE WE GOTTEN A RESPONSE ? 

5$ YES, GCS MODE ALLOW ONLY 1 RESPONSE 


> ttaatienetnat: 


. R 


:IS by SET TO US ? 


RESP ;ADD 1 TO THE RESPONSE COUNT 
.2ITO,SLTUSECR4 ) ;SET SLOT-IN-USE 

10$ 

#BITO, SLTUSECR4 ) sELSE CLEAR THIS SLOT-IN-USE 
#DSPSTPR ;SET THE POINTER TO Li NEXT SLOT 
URDEND(R4),R1 ;ARE WE AT THE END OF THE RING ? 

1$ ;NO, KEEP GOING TILL WE GET THEM ALL 

1> ;RESTORE R1 
PC ; RETURN 


———— i — ee ee 








B8 
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‘PORT DRIVER CLEAR 


3705 .SBTTL PORT DRIVER CLEAR 
sree PTET IT ETT iri tii rit iit ii ii iii | 
3708 Port Driver Clear 
3709 3 
3710 :Called By : CORECV 
3711 sRegister Inputs: R4 - Lun block pointer. 
srg sRegisters Used : R1 - Current location in the RESPONSE descriptor ring. 
3714 ‘ 
3715 026230 PRTCLR:: 
3716 26230 PUSH <R1,R2> :SAVE R1 AND R2 
3718 026240 016402 000162 MOV URDSRG(R4),R2 ;R2 = RESPONSE DESCRIPTOR RING 
Leh 026244 162702 000004 SuB #4,R2 ;BACK UP POINTER BY A LONGWORD 
3721 026250 162701 000004 1$: SuB #4,R1 ;BACK UP POINTER BY A LONGWORD 
3722 026254 020201 CMP R2,R1 ;BACKED UP PAST START OF RING? 
3723 026256 001410 BEQ 20$ ;YES - SO GET OUT 
3724 026260 000241 CLC ;CLEAR THE CARRY 
3725 026262 006064 000010 ROR SLTUSEC(R4) :MOVE BITO TO CARY BIT 
3726 026266 103003 BCC 5$ ;BRANCH IF SLOT NOT USED 
1S 44 026270 012761 100000 000002 MOV #OWN, HIADDR(R1 ) ;GIVE SLOT BACK TO PORT 
3729 026276 000764 5$: BR 1$ ;LO0K FOR MORE 
3730 026300 20$: POP lta To R2 AND Ri 


3717 026234 016401 000164 MOV URDEND(R4),R1 3R1 = END OF RESPONSE DESCRIPTOR RING 
3731 026304 000207 RTS 
32 
' 
| 
| 


GLOBAL AREAS 
| PORT DRIVER INITIALIZATION 


026334 


2 
026340 


026346 
026350 
026350 
026350 
026352 
026354 
026356 
026362 


026364 


026412 


026442 
026444 


026472 
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010174 
016437 
012703 
012701 


012737 
005002 


104422 
005202 
001003 
005337 
001444 


037401 
001767 


100351 
016402 


001371 
016402 


001371 
000403 


000000 
000162 
026520 
004000 


000050 


010554 


000002 


000002 
010566 


000002 


000162 
000156 


000104 
000160 


000166 
003572 


000050 
004032 


026522 


010554 


010566 


-SBTTL PORT DRIVER INITIALIZATION 
PPAR EERE EEE EERE REE E EERE 


Port Driver Initialization 
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;Called By 


sRegister Inputs: 
sRegisters Used : 


PRTINT:: 
p 


LOOP: 


ILOOP : 


2s: 


3$: 


5$: 


10$: 


C8 


: CLSDORV 

R4 - Lun block pointer. 

Ril - Current init step in process 

Re - Used =f the watchdog timer 

R3 - Initialization data table pointer 


<R1,R2,R3,R5> sSAVE R1, R2, R3 AND RS 
R1, aTKIP(R4) INITIALIZE THE DRIVE 


URDSRG(R4), INTTBL+2 sPUT RESP DESCRIPTOR ADDRESS IN TABLE 

#INTTBL ,R3 sPUT THE TABLE ADDRESS INTO R3 

#S1,R1 ;SET UP TO BEGIN AT STEP 1 

#40. ,CNTHI ;SET ”. THE TIME OUT COUNTER 

R2 sCLEAR Re 

C$BRK 

R2 ; INCREMENT a. TIME OUT VALUE ? 

2s ;IF NOT, BRANCH 

CNTHI ;ELSE, INCREMENT HI TIMEOUT 

TKERR ;GET OUT, WE'VE TIMED OUT 

ATKSACR4),R1 ;TEST FOR STEP BIT FROM DRIVE 
P sLOOP UNTIL SOMETHING SETS 


;SAVE THE SA FOR THE ERROR PRINTOUT 
sCHECK FOR ERROR 

TKERR ;GET OUT ON ERROR 

(R3)+,ATKSACR4) ;WRITE WORD FROM TABLE TO CONTROLLER 
R1 SHIFT TO NEXT STEP 


LOOP ;IF NOT AY LAST STEP LOOP 


ILO0O 
A@TKSACR4), SAERR 
SAERR 


URDSRG(R4),R2 ;PUT THE RESPONSE DESCRIPTOR ADD IN R2 
URSPBF (R4),R3 ;PUT THE RESPONSE BUFFER ADDRESS IN R3 

R3,(R2)+ sPUT THE BUFF ADD IN THE DESCRIPTOR 
(R2)+ CLEAR THE NEXT WORD 

#DRBSTP ,R3 ;STEP TO THE NEXT BUFFER SLOT 

URBEND(R4 ) ,R3 sARE WE AT THE END OF THE BUFFER ? 

5$ 3NO, KEEP GOING 

UCDSRG(R4),R2 sPUT THE CMD DESCRIPTOR ADDRESS IN R2 

#DCMDBF ,R3 PUT THE CMD BUFFER ADDRESS IN R3 
3,(R2)+ sPUT THE BUFF ADD IN THE DESCRIPTOR 
(R2)+ ;CLEAR THE NEXT WORD 

#DCBSTP,R3 s;STEP TO THE NEXT BUFFER SLOT 

#DCBEND ,R3 sARE WE AT THE END OF THE BUFFER ? 

10$ ;NO, KEEP GOING 

IDONE ;ALL DONE 


Sosnseiiaieriatatcaimsieniseainc iti 


OL TT NT sts ee se sste-amumee sse 


GLOBAL AREAS 


3790 026474 
3791 


3792 026502 
3793 Seekoe 


026514 
3794 026516 
3795 
3796 
3797 
3798 026520 
3799 026522 


3800 026524 
3801 026526 
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012737 000006 010546 TKERR: 


005337 003402 


012605 
012603 
012602 
012601 
000207 


111400 
000000 
000000 
000001 


IDONE : 


sINIT DATA TABLE 


INTTBL: 


MOV 


D8 


#INTERR,IOSTAT ;SET UP FOR A FATAL ERROR 
RSPCNT 

<R5,R3,R2,R1> sRESTORE THE REGISTERS 
(SP)+,R5 ;;POP STACK INTO RS 

(SP)+,R3 ;;POP STACK INTO R3 

(SP)+,R2 +;POP STACK INTO R2 

(SP)+,R1 ;:POP STACK INTO R1 

PC ; URN 

WORD TKINIT 

. WORD 0 

-WORD 0 

-WORD GO 


' 


| 
| 


| GLOBAL AREAS 


3815 026530 


3824 026572 


5 
3826 026576 
026576 


3836 026642 
3837 026644 


3839 026646 


3851 026722 


2 
3853 026726 
3854 026732 
3855 026734 
3856 026740 
3857 026744 


“ a 





E8 
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GCS RESPONSE HANDLER 


000240 
000137 


010146 


001461 
000510 


022702 


004737 
000137 


022702 
001004 
004737 
000137 
022702 


010550 
000040 
003414 
003412 
000002 
033734 


027314 


000016 
000004 
000014 
000004 
003566 
003636 


003706 


003706 
027316 
027142 
003756 


027340 


027142 
003756 
027340 


027142 
003566 


00002C 
003516 


010546 


-SBTTL GCS RESPONSE HANDLER 
EER ERAEE ERE RR EERE RE EE EEE EEE 


:GCS RESPONSE HANDLER 
iCalled By 

;Calls To : 
;Register Inputs : 


;Register Inputs : 


sANY PROGRESS ? 
YES, CLKEAN UP THE MESS 
;CLEAR THE GCS MODE FLAG 


;SET HUNG CONTROLLER BIT 


;GET OUT 


;;PUSH Ri ON STACK 


PUT THE OLD POINTER IN R1 

sADJUST TO INCLUDE DESCRIPTOR WORDS 
;PUT THE NEW POINTER IN R2 

ADJUST TO peas DESCRIPTOR WORDS 
;OLD POINTER AT BF1 ? 

;YES, GO HAN NDL LE IT 

;0LD gy BF2 ? 


;NO, GO HANDLE BF4 


s;NEW POINTER AT BF3 ? 
3NO, TRY AGAIN 

;GO MOVE COMMAND 1 TO 2 
:GO ADJUST THE oP < ee 
sNEW POINTER AT BF4 

NO, TRY AGAIN 

;GO MOVE COMMAND 2 TO 3 
sGO MOVE COMMAND 1 TO 2 
:GO ADJUST THE OLD re 
:GO MOVE COMMAND 3 TO 4 

;GO MOVE COMMAND 2 TO 3 
GO MOVE COMMAND 1 TO 2 
:GO ADJUST THE OLD POINTER 


sNEW POINTER AT BF4 ? 
3NO, TRY AGAIN 
;GO MOVE COMMAND 2 TO 2 


GCSHDL: : 
cer CMSTSV,P.CMSTC(R1) 
BIC #GCSRFL ,PCFLAG 
CLR RESP 
CLR HNDLRP 
MOVB #IOHUNG , IOSTAT 
JSR PC ,CORDMP 
NOP 
JMP GCSEXT 

5$: PUSH <R1,R2> 
MOV R1,-(SP) 
MOV R2,-(SP) ;;PUSH R2 ON STACK 
MOV Teint R1 
SUB 3 
MOV CNUSAV(RAD, R2 
SUB R2 
CMP SChOBF, Ri 
BEQ LD1i 
CMP #CMDBF2,R1 
BEQ OLD2 
CMP #CMDBF3,R1 
BEQ OLD3 
BR OLD4 

OLD1: CMP #CMDBF3,R2 
BNE 5$ 
JSR PC,EXC1iA2] 
JMP ADJUST 

5$: CMP aCHDEr4, R2 
BNE 10$ 
JSR PC,EXC2A3 
JSR PC,EXC1iA2 
JMP ADJUST 

10$: JSR PC,EXC3A4 
JSR PC,EXC2A3 
JSR PC,EXCiA2 
JMP ADJUST 

OLD2: CMP #CMDBF4 ,R2 
BNE 5$ 
JSR PC,EXC2A3 
JMP ADJUST 

5$: CMP #CMDBF1,R2 


:GO ADJUST THE OLD POINTER 
sNEW POINTER AT BF1 ? 





re ee ee we oe ee ee 
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§ 

3858 026750 001006 BNE 10$ sNO, TRY AGAIN 
3859 026752 004737 027362 JSR PC,EXC3A4 GO MOVE COMMAND 3 TO 4 
3860 026756 004737 027340 JSR PC,EXC2A3 ;GO MOVE COMMAND 
3861 026762 000137 027142 JMP ADJUST :GO ADJUST THE OLD POINTER 
3862 026766 004737 027404 10$: JSR PC,EXC4A1 ;GO COMMA 
3863 026772 004737 027362 JSR PC,EXC3A4 GO MOVE COMMAND 3 TO 4 
3864 026776 004737 027340 JSR PC,EXC2A3 GO MOVE COMMAND 2 TO 3 
+934 027002 000137 027142 JMP ADJUST ;G0 ADJUST THE OLD POINTER 
3807 027006 022702 003566 OLD3: CMP #CMDBF1,R2 ;NEW + es AT BF1i ? 
3868 027012 001004 BNE ;NO, TRY AGAIN 
3869 027014 004737 027362 JSR PC,EXC3A4 GO MOVE COMMAND 3 70 4 
3870 027020 000137 027142 JMP ADJUST ;GO ADJUST THE OLD POINTER 
3871 027024 022702 003636 S$: CMP #CMDBF 2 ,R2 ;NEW oer dee AT BF2 ? 
3872 027030 001006 BNE 10$ ;NO, AGAIN 
3873 027032 004737 027404 JSR PC,EXC4A1 ;60 MOVE COMMAND 4 TO i 
3874 027036 004737 027362 JSR PC,EXC3A4 GO MOVE COMMAND 3 TO 4 
3875 027042 000137 027142 JMP ADJUST ;GO ADJUST THE OLD POINTER 
3876 027046 004737 027316 10$: JSR PC,EXC1A2 ;GO MOVE COMMAND 1 TO 2 
3877 027052 004737 027404 JSR PC,EXC4A1 ;GO MOVE COMMAND 4 TO 3 
3878 027056 004737 027362 JSR PC, EXC3A4 ;GO MOVE COMMAND 3 TO 4 
4 027062 000137 027142 JMP ADJUST 3GO ADJUST THE OLD POINTER 
3881 027066 022702 003636 OLD4: CMP #CMDBF 2 ,R2 s;NEW POINTER AT BF2 ? 
3882 027072 001004 BNE 5$ sNO, TRY AGAIN 
3883 027074 004737 027404 JSR PC,EXC4A1 GO MOVE COMMAND 4 TO 1 
3884 027100 000137 027142 JMP ADJUST ;GO ADJUST THE OLD POINTER 
3885 027104 022702 003706 5$: CMP #CMDBF3,R2 sNEW POINTER AT BF3 ? 
3886 027110 001006 BNE 10$ :NO, TRY AGAIN 
3887 027112 004737 027316 JSR PC,EXC1A2 GO MOVE COMMAND 1 TO 2 
3888 027116 004737 027404 JSR PC,EXC4A1 :GO MOVE COMMAND 4 TO 1 
3889 027122 000137 027142 JMP ADJUST GO ADJUST THE OLD POINTER 
3890 027126 004737 027340 10$: JSR PC,EXC2A3 GO MOVE COMMAND 2 TO 3 
3891 027132 004737 027316 JSR PC,EXC1A2 ;GO MOVE COMMAND 1 TO 2 
rte 027136 004737 027404 JSR PC,EXC4A1 ;GO MOVE COMMAND 4 TO 1 
3894 027142 ADJUST: POP <R2,R1> ; 

027142 012602 MOV (SP)+,R2 33;POP STACK INTO R2 

027144 012601 MOV (SP)+,R1 3sPOP STACK INTO R1 
3895 027146 042737 000040 003516 BIC #GCSRFL ,PCFLAG ;CLEAR THE GCS MODE FLAG 
3896 027154 016137 000020 010550 MOV P.CMST(R1),CMSTSV ;PUT THE CMD STATUS INTO THE SAVE LOC 
3897 027162 005037 003414 CLR RESP ;TAKE OFF THE RESPONSE 
3898 027166 005037 003412 CIR HNDLRP ;TAKE OFF THE RESPONSE 
3899 027172 005364 000006 DEC CMDSEQ(R4 ) ;ADJUST THE CMDSEQ NUMBER BACK 1 
3900 027176 042737 100000 010546 BIC #NURESP , IOSTAT ;CLEAR THE NEW RESPONSE FLAG IN IOSTAT 
444] 027204 105237 010571 INCB CRDOLIM ADD 1 TO THE CREDIT LIMIT 
3903 027210 062764 000050 000016 ADD #DCBSTP ,COLSAV(R4) ADJUST THE OLD COMMAND POINTER 
3904 027216 022764 004032 000016 CMP #DCBEND , COLSAV(R4) :IS IT nu THE END OF THE RING ? 
3905 027224 001003 BNE 5$ NO, BRANCH 
494 027226 012764 003572 000016 MOV #DCMDBF , COLSAV(R4) ;YES, SET IT TO THE TOP OF THE RING 
3908 027234 062705 000050 S$: ADD #DCBSTP,RS ; ADJUST THE OLD COMMAND POINTER 
3909 027240 022705 004032 CMP #DCBEND ,R5S ;I1S IT AT THE END OF THE RING ? 
3910 027244 001002 BNE 10$ :NO, BRANCH 

012705 003572 MOV #DCMDBF ,R5 ;YES, SET IT TO THE TOP OF THE RING 
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3913 027252 
3914 027260 
3915 027266 
027270 


= 
3918 027276 
3919 027302 
3920 027306 
3921 027310 


2 
3923 027314 
3924 027314 


3927 027316 
3928 027322 
3929 027326 
0 027330 
3931 027334 
at 027336 


3934 027340 


3939 027360 


3941 027362 
3942 027366 
3943 027372 
3944 027374 
3945 027400 
3946 027402 


3948 027404 
3949 027410 
3950 027414 
3951 027416 
3952 027422 
3953 027424 


ee ee ee oe 
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062764 


016464 


062701 
026401 
001002 
016401 


000207 


012701 
012702 
012122 
022701 
001374 
000207 


012701 
012702 
012122 
022701 
001374 
000207 


012701 
012702 


000207 


012701 
012702 
012122 
022702 
001374 
000207 


000104 000022 10$: 
000160 000022 


000156 000022 


000104 15$: 
000160 
000156 

GCSEXT: 
003566 EXC1iAe2: 
003636 

5$: 
003636 
003636 EXC2A3: 
003706 

5$: 
003706 
003706 EXC3A4: 
003756 

5$: 
003756 
003756 EXC4AL: 
003566 

5$: 
003636 
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' #DRBSTP ,ROLSAV(R4) 


tae eeaarammiits 
URSPBF (R4),ROLSAV(R4) 


#DRBSTP,R1 


URBEND(R4),R1 
GCSEXT 
URSPBF(R4),R1 


PC 


#CMDBF1,R1 
#CMDBF 2 ,R2 
(R1)+,(R2)+ 
> tine 


PC 


#CMDBF2,R1 
#CMDBF3,R2 
(R1)+,(R2)+ 
i patlaae 


PC 


#CMDBF3,R1 
#CMDBF4 ,R2 
(R1)+,(R2)+ 
> aaa 


PC 

#CMDBF4,R1 
#CMDBF1,R2 
(R1)+,(R2)+ 
7 teil 


PC 


_ UCU oe 


SEQ 97 


;ADJUST THE OLD RESPONSE POINTER 

sIS IT AT THE END OF THE BUFFER ? 

;NO, KEEP GOING 

;YES, SET IT TO BEGINNING OF THE BUFFER 


sADJUST R1 
:IS IT AT - END OF THE BUFFER ? 


, U 
sYES, SET IT TO BEGINNING OF THE BUFFER 
;RETURN 


SET R1 TO BF1 
;SET R2 TO BF2 
sMOV_BF1 CONTENTS TO BF2 


sYES, GET OUT 


;SET R1 TO BF2 
;SET R2 TO BF3 

sMOV _BF2 CONTENTS TO BF3 
HAVE WE MOVED THEM ALL 
3NO, KEEP MOVING IT 
sYES, GET OUT 


;SET R1 TO BF3 

;SET R2 TO BF4 

sMOV_BF3 CONTENTS TO BF4 
sHAVE WE MOVED THEM ALL 
;NO, KEEP MOVING IT 
sYES, GET OUT 


;SET R1 TO BF4 

;SET R2 TO BF1 

sMOV _BF4 CONTENTS TO BF1 
sHAVE WE MOVED THEM ALL 
sNO, KEEP MOVING IT 
;YES, GET OUT 
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H 
3955 .-SBTTL RESPONSE HANDLER 
es 4 5 ERE EE EEEEEEEK 
3958 i RESPONSE HANDLER 
3959 
3960 ‘Called By : CMDSEQ 
3961 :Calls To : ERRDEI, ERRDEL, ERRDEC, CMPDAT, DQCMD 
3962 ;Register Inputs : Ri - UNIT NUMBER 
3963 ; : R4 - LUN BLOCK POINTER 
sece ;Register Inputs : R3 - POINTER TO CURRENT RESPONSE PACKET 
3966 
3967 027426 RSPHDL: : 
3968 027426 PUSH <R3> 
027426 010346 MOV R3,-(SP) ;;PUSH R3 ON STACK 
3969 027430 005037 003406 CLR RESPON ;0 HERE TELLS CMDSEQ ALL'S OKAY 
3970 027434 105737 010546 TSTB IOSTAT ;DID WE HAVE I/0 TYPE FAILURE? 
3971 027440 001403 BEQ 5$ ;BRANCH AROUND IF NOT 
3972 027442 004737 030774 JSR PC,ERRDEI ;ELSE DECODE AND PRINT IT 
4d 027446 000501 BR 60$ ;GET OUT NOW 
3975 027450 016403 000022 5$: MOV ROLSAV(R4),R3 ;GET OLD RESPONSE BUFFER POINTER 
3976 027454 005737 003412 TST HNDLRP ;DID WE HAVE ar ONSES ? 
3977 027460 001474 BEQ 60$ NO, GET OUT HERE 
3978 027462 032763 000200 000010 103: BIT #OP .END,P.OPCD(R3) :1S IT i END OP ACKET? 
3979 027470 001003 BNE 15$ ;YES, BRANCH 
3980 027472 004737 031236 JSR PC,ERRDEL GO HANDLE ERROR LOG PACKET 
et) 027476 000453 BR 50$ ;SEE IF THERE'S MORE RESPONSES 
3983 027500 005763 000012 15$: TST P.STSCR3) ;WAS STATUS "NORMAL "? 
3984 027504 001413 BEQ 25$ YES - BRANCH 
3985 027506 022763 000022 000012 CMP #ST.SEX,P.STSCR3) :1S IT SERIOUS EXCEPTION STATUS? 
3986 027514 001004 BNE 20$ NO - GO HANDLE THE ERROR 
3987 027516 052764 000004 000026 BIS #NOTALY ,LUNFLG(R4) ;SET THE NO-TALLY FLAG 
3988 027524 000436 BR 45$ ;YES, GO DE-QUE THE COMMANDS 
3989 027526 004737 030304 20$: JSR PC,ERRDEC ;GO HANDLE ERROR STATUS 
3990 027532 000403 BR 30$ 
3991 027534 000241 25$: CLC ;CLEAR THE CARRY BIT 
see 027536 006164 000030 ROL LEOTFL(R4) ;ROTATE THE CARRY INTO THE LEOT FLAG 
3994 027542 032761 000001 003350 30$: BIT #AVB ,DRINUS(R1) sHAVE WE DROPPED THE UNIT? 
3995 027550 001440 BEQ 60$ sYES - GET OUT 
3996 027552 022763 000241 000010 CMP #0P.END!OP.RD,P. OPCD(R3)_ :DID WE READ THIS TIME? 
3997 027560 001020 BNE 45$ NO - SKIP DATA COMPARE 
3998 027562 022737 000005 002114 CMP #5,L$TEST # ARE WE IN TEST 5? 
3999 027570 001003 BNE 35$ YES - SKIP DATA COMPARE 
4000 027572 105737 002235 TSTB TSCMP :00 DATA COMPARES IN TEST 5 ? 
4001 027576 001403 BEQ 40$ NO, SKIP DATA COMPARE 
4002 027600 004737 032552 35$: JSR PC,CMPDAT :00 COMPARE DATA 
4003 027604 000406 BR 45$ 
4004 027606 132737 000001 002236 40$: BITB #BITO, DMPBUF * SHOULD WE DUMP RDBUF ? 
4005 027614 001402 BEQ 45$ ;NO - BRANCH 
saat 027616 004737 034066 JSR PC ,BUFDMP 
4008 027622 004737 027662 45$: JSR PC ,DQCMD ;DEQUEUE THE COMMAND 
4009 027626 062703 000104 50$: ADD #DRBSTP »R3 ;ADJUST POINTER TO NEXT PACKET 


4010 027632 026403 000160 CMP URBEND(R4),R3 sEND OF RESPONSE BUFFER? 


<< ts reel Sil gui Same eign meee. iene lineman 


GLOBAL AREAS 


4011 027636 

4012 027640 

4013 

4014 027644 

4015 027650 

4016 

4017 027652 

4018 027656 
027656 

4019 027660 


ee ee ee ee 


18 
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001002 
016403 


005337 
001304 


010364 


012603 
000207 


000156 
003412 


000022 


55$: 


60$: 


55$ 
URSPBF(R4),R3 


HNDLRP 
10$ 


R3,ROLSAVC(R4) 
<R3> 

(SP)+,R3 

PC 


;NO_- BRANCH AROUND 


PUT POINTER AT BEGINNING OF BUFFER 


;DECREMENT RESPONSE COUNTER 
;GO HANDLE ANOTHER ONE 


;SAVE OLD RESPONSE BUFFER POINTER 


;3POP STACK INTO R3 


SEQ 99 


RPS aes 2 = 


rer Pe. 


—_ a 
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| DE-QUEUE COMMAND 
4021 -SBTTL DE-QUEVE COMMAND 
rt Pettiiiiitiitiiiiitttitit ii titiiiit! 
402 ; 
4024 ; DE-QUEVE COMMAND 
4025 ; 
4026 ;Called By : RSPHDL 
4027 ;Calls To : LGSTAT 
4028 ;Register Inputs : R2 - OLD POINTER TO PROGRAM COMMAND RING 
4029 ;Register Outputs: R2 - UPDATED 
4030 ; 
4031 
4032 027662 DQCMD: : 
4033 027662 004737 027720 JSR PC,LGSTAT ;CALL LOG STATS 
4034 027666 062702 000014 ADD #PCBSTP,R2 ;ADJUST THE OLD COMMAND POINTER 
4035 027672 022702 003344 CMP #PCBEND ,R2 ;ARE WE AT THE END OF THE BUFFER ? 
4036 027676 001002 BNE 5$ ;NO, KEEP GOING 
red 027700 012702 003264 MOV #PCMDBF ,R2 ;YES, SET IT BACK TO THE TOP 
4039 027704 005337 003402 5$: DEC RSPCNT ;DECREMENT THE RESPONSE COUNTER 
4040 027710 012737 177777 010550 MOV #-1,CMSTSV ;RESET THE GCS PROGRESS COUNT 
4041 027716 000207 RTS PC ;RETURN 
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027720 


03 
030110 


6 
030112 


K8 
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026427 
003406 


000004 
000040 
000000 
000020 


000002 
000120 


001750 
000122 


000122 


001750 
000124 


000124 


001750 
000126 


000126 
000120 


000126 


000016 
000010 
000350 


000040 
000110 


001750 
000112 


000112 


000026 
000000 


000000 


000120 
001747 


000120 


001747 
000122 


001747 
000124 


001747 


000012 
000012 
000012 


000110 
001747 


000110 


001747 


-SBTTL LOG STATISTICS 
SERRE EERE EERE ER EE EEE RE EEE EERE EERE 


: LOG STATISTICS 


;Called By 


Register” Inputs : 


LGSTAT:: 


1$: 


2s: 


3$: 


4$: 


5$: 


6$: 


7$: 


SEQ 101 


DQCMD 
as - OLD PROGRAM COMMAND POINTER 


4 - LUN BLOCK POINTER 


ere ee 
wee 
CMD(R2) 

10 

#WR ,CMDCR2) 

S$ 


ITMOFFCR2),WRBYTIC(R4) 
eee 


#1000. ,WRBYT1(R4) 
WRBYT2(R4) 


1$ 
T ithtataae #999, 


#1000. 17 Vian 
WRBYT3(R4) 


2$ 
ital 


#1000. ,WRBYT3(R4) 
WRBYT4(R4 ) 


3$ 

WRBYT4(R4), #999. 
10$ 

WRBYT1(R4) 
WRBYT2(R4) 
WRBYT3(R4) 
WRBYT4(R4 ) 

10$ 
#ST.TM,P.STSC(R3) 
10$ 

+ * alia 
#350,P.STSC(R3) 
10$ 


P.TRBC(R3),RDBYT1(R4) 
SOOVTA(RS ),0998. 


7$ 
#1000, sRORYTECRS) 
_ T2(R4) 


RDBYT2CRA) 9999. 


:IS THIS a TO BE TALLIED ? 
GET OUT 


; COMMAND A READ OR WRITE 
sNO, EXIT SUBROUTINE 
;IS IT A NULL ? 
sYES, EXIT SUBROUTINE 
;1S IT A WRITE ? 
:NO, HANDLE READ 
;YES, ADD THE BYTES WRITTEN TO TOTAL 
:IS IT HIGER THAN 999. ? 
;BRANCH IF IT'S NOT 
s;SUBTRACT 1000. FROM THE LOWER ORDER WORD 
; INCREMENT THE SECOND WORD 


;IS IT HIGER THAN 999. ? 

;BRANCH IF IT'S NOT 

s;SUBTRACT 1000. FROM THE LOWER ORDER WORD 
sINCREMENT THE SECOND WORD 


te IT HIGER THAN 999. ? 

;BRANCH IF IT'S NOT 

;SUBTRACT 1000. FROM THE LOWER ORDER WORD 
sINCREMENT THE SECOND WORD 


:IS IT HIGER THAN 999. ? 
sBRANCH IF IT'S NOT 


;EXIT 

;WAS THIS A TAPE MARK DURING READ 
;YES, GET OUT 

:WAS THIS A DATA ERROR DURING READ 
;WAS THIS au DATA ERROR DURING READ 


THE BYTES aren TO TOTAL 
;1S IT HIGER THAN 999. ? 


sBRANCH IF IT'S NOT 
FROM THE ‘ ORDER WORD 


ra 
> 
i) 
oo 


;SUBTRACT 1000. 
s; INCREMENT THE SECOND WOR 


:IS IT HIGER THAN 999. ? 
;BRANCH IF IT'S NOT 
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4116 030302 


me ee eee ee 


001750 
000114 


000114 


000112 


001747 
000114 


001747 


000026 


L8 
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8$: 


9$: 


10$: 


#1000. ,RDBYT2(R4) 
lata 


$ 
-~ ali tata 


#1000. ,RDBYT3(R4) 
RDBYT4(R4) 


8$ 
ROBYT4(R4), #999. 
1C$ 


ROBYT1(R4) 
RDBYT2(R4) 
RDBYT3(R4) 
RDBYT4(R4) 
SS ARERR 


SEQ 102 


s;SUBTRACT 1000. FROM THE LOWER ORDER WORD 
sINCREMENT THE SECOND WORD 


:IS IT HIGER THAN 999. ? 

sBRANCH IF IT'S NOT 

s;SUBTRACT 1000. FROM THE LOWER ORDER WORD 
sINCREMENT THE SECOND WORD 


IS IT HIGER THAN 999. ? 
BRANCH IF IT’S NOT 


FCLEAR THE NO-TALLY FLAG BEFORE EXITING 
;RETURN 


i 
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010146 
006001 


010146 


022705 


012737 
016337 
022705 


001004 
012737 
000511 


020256 
000002 
000006 


000010 
031232 


010652 
000013 


000020 


003442 


000010 
003350 
003402 
000026 


000026 


003530 


003516 


003406 
003542 


003442 


-SBTTL ERROR DECODE 


5 SESE EEEEEEEEEEEEEEEEEEEEEEEEEES 


; ERROR DECODE 


iCelled By 
:Calls To 


Register Inputs : 


ERRDEC:: 


997$: 


999$: 


4$: 


S$: 


: RSPHDOL 
: ERRTLY, PRIERR 


<R5> 

R5,-(SP) 
XFERST(R2),R5 
#ST.ONL,RS 

997$ 

nontet » WRKMSK 
#177740,R5 

+ pe XFERST(R2) 
#E0T ,DRINUS(R1) 
VEOT 
CMDCNT , RSPCNT 
CMDCNT 
SEOTPR,LUNFLG(R4) 
999$ 


<Ri> 
~ alate 


+ ee ge 


@UNTEOT, -( SP) 
#2,-(SP) 

SP ,R 

C$PNTF 

#6, SP 


<R1> 
#EQTPR,LUNFLG(R4) 
EDCEXT 


@CMDT ,R8 
635.85 


$ 
@ORERFL ,PCFLAG 
PC, OCTHEX 
#23,R5 
S$ 
#24,R5 
ERREXT 


@SEREXC ,RESPON 
P.CRF(R3),SECRNS 
@ST.WPR,RS 


10$ 
@WPRB , WRKMSK 
MSKTST 


;SAVE RS 
;;PUSH RS ON STACK 

sPUT_THE COMMAND STATUS IN RS 
TS. IT A_UNIT op ERROR ? 


R2 - OLD PROGRAM COMMAND BUFFER POINTER 


BRANCH IF IT ISN'T 


;SET THE TT et IN THE MASK 


;CLE NTED. BITS 
:IS EOT oS wiwer STATUS ? 


;BRANCH IF 


met THE ante TO EOT 


NC THE EOT FLAG 


sSET RESPONSE COUNT —_— OUT 


s; ISSUE NO 


SEQ 103 


MORE COMMA 
;HAS ser BEEN PRINTED FOR THIS DRIVE ? 


;DON'T PRINT IT AGAIN 
;SAVE R1 
; sPUSH Ri ON STACK 


VIDE Ri 


3 BY 2 
sPRINT UNIT AT EOT MESSAGE 


sRESTORE 


;PUT THE ERROR rena ADDRESS IN R8 


sIS IT A DRIVE ERR 


;NO, CONTINUE 
:SeT THE DRIVE ot 


; ANCH 
MAKE SURE ITS NOT MORE THAN 24 
sTAKE THE ERROR EXIT 


R1 
ee te PRINTED FOR THIS DRIVE 


sSET SERIOUS EXCEPTION 


; SAVE ey CURRENT COMMAND REF @ 
WRITE eaereet ERROR ? 


sIS ITA 
sBRANCH IF IT ISN: 


SET THE ERROR BIT "IN THE MASK 
;G0 TEST IF IT'S OAK. 


A — eS 


030732 


030734 
030740 
030742 


030746 
030752 
030754 


030762 
030770 
030772 


030774 
030774 
030776 
031002 
031010 


N8 
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022705 
061 


006001 


163737 
005037 
005037 
000137 


132763 


022705 
001002 
000137 


022705 
001020 
012737 


033737 
001120 
000410 


113705 


000016 
000002 


090030 
177774 
000003 


000004 
003526 


020312 
000002 


031232 
000010 
031232 
000010 
000020 


000030 
000002 
000023 
031232 
v00004 
000040 
003442 


010546 
010572 
177770 


000026 


000030 
000030 


003350 


003402 


000011 


003442 


003442 


003442 
003440 


003530 


10$: 


13$: 


14$: 


15$: 


20$: 


25$: 


MSKTST: 


ERRDEI: : 


oo 
@SEREXC ,LUNFLG(R4) 
LEOTFL(R4) 
9177774 ,LEOTFL(R4) 
+” enehia 
#EOT ,DRINUS(R1) 
UVEOT 

— 

R1 
tae gf Ri 

Rl, -(SP) 
@UNTLOT, -(SP) 
02,-(SP) 

P,RO 
CS$PNTF 

SP 

<R1> 
CMDCNT ,RSPCNT 
CMDCNT 
RESPON 
EDCEXT 


#EF .EOT,P.FLGS(R3) 
14$ 

EDCEXT 
#TMB , WRKMSK 
MSKTST 
#ST.ROT,RS 
20$ 
LEOTFL(R4) 
#RDTB , WRKMSK 
MSKTST 
#ST.LED,RS 
EDCEXT 
#ST.AVL,RS 
ERREXT 

#AVLB ,WRKMSK 
WRKMSK , TSTMSK 
EDCEXT 

ERREXT 

<R5> 
IOSTAT,RS 


@IOERTB,RS 
@177770,R5 


— ee or 


sIS ITA “ MARK oo ? 
T_ISN'T 


;BRANCH IF I 
;SET SERIOUS EXCEPT 


SINC THE EOT FLAG 
‘ DIVIDE 


ION 


Rl BY 2 
;PRINT UNIT AT EOT MESSAGE 


sRESTORE 


R1 
;SET RESPONSE COUNT — OUT 


;ISSUE NO MORE COMMA 
;MA KE SURE WE 
;GET OUT 


:IS THE ys! MARK A 
_—e 


T OUT 
;SET THE ERROR BIT Mn THE MASK 


;GO TEST IF IT'S O.K 


T EOT ? 


SEQ 104 


sIS ITA PIT isn La TRUNCATED ERROR ? 


3 y BIT 
sROTATE THE CARRY INTO THE Ay FLAG 


;SET THE ERROR BIT 
;G0 TEST IF IT'S 0.K 


:IS IT A LOGICAL END OF TAPE ERROR ? 


;BRANCH IF IT 
;GET OUT IF LEOT DE 


;I1S IT A _UNIT 7 ame ERROR ? 


;BRANCH IF IT ISN’ 


;SET THE ERROR BIT IN THE MASK 
;IS_IT AN ACCEPTABLE ERROR ? 


;GET OUT 


a THE M 


TECTED 


IF IT 
s;OTHERWISE PRINT THE ERROR 


; SAVE 


RS 
;PUT THE 170 ERROR CODE INTO RS 
;SET THE ERROR TABLE ACORESS IN RB 
;CLEAR OFF ALL UNWANTED BITS 


GLOBAL AREAS 
ERROR DECODE 


4218 031014 
4219 031016 
4220 031020 
4221 031022 


4231 031050 
4232 031056 
4233 031060 


11 
4251 031170 


4253 031174 
4254 031202 


4263 031234 


ee 
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012703 
012523 
012523 
012523 
011513 


022762 


132737 
001403 


004737 
000240 
022737 
001004 
010100 
006000 
004737 


000207 


003530 
013262 


000010 
000001 
033734 
000020 


000060 
000100 


000003 
032536 
000001 
033734 
000001 


040442 


000010 
013262 


000000 
013263 
000000 
013263 
013263 


013262 


002231 


013262 


ERREXT: 


S$: 
ERTLY: 


6$: 
8$: 


10$: 


J 
EDCEXT: 
R 


DEC 
A 


#EV.LGP, XFERST(R2) 
ERTLY 


#DEVFAT,ERRTYP 
PC ,CORDMP 


#@WR ,CMDCR2) 
#HIWRIT,ERRTYP+1 
RTLY 

@W™M, CMD(R2) 
#HIWRIT,ERRTYP+1 

ERTLY 

oC chart aes 1 

PC,ERR 

ERATYP La 

+ 

+ allalaamaearins 

PC,PRIERR 
#BITO,DMPFLG 

10$ 

PC ,CORDMP 
#DEVFAT,ERRTYP 

EDCEXT 

RO- 

PC ,DROPUN 

<R5> 

PC 


SEQ 105 


SUBTRACT 1 FROM RS 
sMULTIPLY RS BY 10(8) 
3 


; 
sADD THE TABLE ADDRESS TO RS 


;SET R3_ TO THE GENERIC ERROR TABLE 
sMOVE ERROR TABLE CONTENTS 


;MOVE ERROR TABLE CONTENTS 


:IS IS A LONG GAP ENCOUNTERED ? 
:NO. KEEP GOING 

DROP THE UNIT 
beer ™ 00 IT 


bas 

:IS IT A WRITE ? 

;NO TRY AGAIN 

;AND TALLY THE HARD WRITE ERROR 
;GO TALLY THE ERROR 

:IS IT A WRITE TAPE MARK ? 

;NO, MUST BE A READ 

AND TALLY THE HARD WRITE ERROR 
;TALLY THE ERROR 

sTALLY THE ERROR READ ERROR 


;G0 PRINT THE ERROR 
s;SHOULD WE DUMP PROGRAM TABLES? 
BRANCH 


DO IT 


:IS IT A FATAL ERROR ? 
NO EXIT 

sMOVE UNIT # * 2 TO RO 
;DIVIDE BY 2 

sDROP DRIVE FROM TESTING 
To REGISTERS 


| GLOBAL AREAS 
ERROR LOG DECODE 


031236 


031524 
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116237 
042737 


122763 


000413 


000000 
177407 


000005 
000000 


011132 
031724 
000001 


011142 
031724 
000012 
177740 
000007 


011152 
031724 
000013 


011162 
031724 
000012 


011172 


011202 
031724 
003360 
000055 
000056 
000020 


000100 
000150 


000004 
011232 


003536 
003536 


000010 
000010 


000010 


003556 
003556 
003556 


003556 


003556 


000012 


000000 
000002 
003536 
003536 


000012 


-SBTTL ERROR LOG DECODE 
FERRERS A ERE A AE EERE ERE E EEE 


; ERROR LOG DECODE 


‘Called By 

° :Calls To 

; Inputs 

;Outputs : 
sRegister Inputs : 
sRegister Outputs: 


ERRDEL:: 
PUSH 


<R3,R5> 
MOVB CMD(R2),R11 
BIC #177407,R11 


PUSH <R1> 
ae #FM.TPE,L.FMTCR3) 
CMPB #FM.CNT,L.FMTCR3) 
BNE 1$ 
MOV #CNTLER,RS 
JMP PRTEXT 

1$: CMPB #FM.BAD,L.FMTCR3) 
BNE 5$ 
MOV #BADERL ,RS 
JMP PRTEXT 

S$: MOV L.EVNT(R3), EVENT 


BIC #177740, EVENT 
CMP #ST.CMP,EVENT 


BNE 10$ 
MOV #CMPERL ,RS 
JMP PRT 

10$: CMP #ST.DRV,EVENT 
BNE 15$ 
MOV #DRVERL ,RS 
JMP PRTEXT 

15$: CMP #ST.CNT,EVENT 
BNE DATAEL 
MOV #CNTERL RS 
JMP PRTEXT 

DATAEL: CMP #EV.LGP,L.EVNTCR3) 
BNE 1$ 
MOV #LGPERL ,R5 
JMP PRTEXT 

1$: MOV 


eg i? R1 
MOVB L.TRK(R3), TRK(R1) 
MOV L.PBLK(R3),PHB(R1) 


CMP #WR,R11 
BEQ WRERL 
CMP #W™M,R11 
BNE RDERL 
WRERL : v4 #EV.COR,L.EVNTCR3) 


1$ 
INCB SWR(R1) 
MOV +: cae 


SEQ 106 


;GET THE COMMAND PRIMITIVE FOR LATER USE 
sGET JUST THE ROOT PRIMATIVE 


sSAVE R1 
;TAPE TRANSFER ERROR LOG? 
;YES, ODE IT 
ee A LOG? 
NO, SEE WHAT IT IS 
sPRENT PACKET 


T OUT 
;HOST MEMORY ACCESS ERROR LOG? 
GET OUT 


U 
SET eon oe HOST MEM ACC ERL 
sGET A_COPY OF THE EVENT CODE 
;GET RID OF THE SUBCODES 

IS IT A COMPARE ERROR ? 

3NO, KEEP GOING 

;SET UP TO PRINT ERROR 

3GO PRINT THE ERROR 

;1S IT A DRIVE ERROR ? 

NO, KEEP GOING 

;SET UP TO PRINT ERROR 

;G0 PRINT THE ERROR 

:IS IT A CONTROLLER ERROR ? 

sNO, MUST BE A DATA ERROR 

;SET UP TO PRINT ERROR 

;G0 PRINT THE ERROR 

sIS ITA ~~ GAP ENCOUNTERED ? 
sNO, KEEP TRYING 

;SET UP TO PRINT LGE ERROR 

:GO PRINT IT 

;PUT THE TEMP TABLE ADDRESS IN R1 
sPUT THE TRACK NUMBER IN TEMP 
sPHYSICAL BLOCK NUMBER TO TEMP 
;WAS IT A WRITE COMMAND ? 

GO HANDLE WRITE ERROR 

;1S IT A WRITE TAPE MARK COMMAND ? 
GO HANDLE READ ERROR LOG 

:IS IT A SOFT ERROR 

3NO, INCREMENT HARD fe ROR 

YES, INCREMENT SOFT WRITE ERROR 
;SET UP TO PRINT ERROR 

KEEP GOING 


ee ee 


SS a 


= we 


| GLOBAL AREAS 
, ERROR LOG DECODE 


4323 
4324 


031526 
1532 


032034 
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000006 
000050 
011222 
011242 
031720 
000350 


000007 


105261 
022763 000012 
001003 


000012 


090050 
000007 
011212 
031720 
000005 
105763 000042 
000036 
011272 
000030 
011302 
000026 
011312 
011252 
032162 


000000 
013262 


000012 


000052 


000052 


000052 


003536 


032120 
013263 
002224 
000003 
000020 
000100 
002225 


032536 


013262 
003536 
003536 


004737 
000207 


D9 
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1$: 


5$: 
10$: 
RDERL : 


1$: 


5$: 


10$: 
15$: 


20$: 
SRTBL: 


J 
PRTEXT: 


1$: J 
EDLEXT: 


HWRCR1) 
#EV.DST,L.EVNTCR3) 


5 

+ lat 
jal »RS 

+ .URE,L.EVNTCR3) 
HRD(R1) 

#UREERL ,R5 

SRTBL 

> etal ateiaalatiias 


HRDC(R1) 
#RDSTEL RS 
SRTBL 


SRD(R1) 
L.LVLCR3) 


20$ 
#ECCBC,L.STSC(R3) 
10$ ' 

#ECBERL ,R5 

SRTBL 

++ + phmaaieaaila 
+ oa »RS 
— »L.STSCR3) 
#ECDERL RS 

SRTBL 

#RTYERL RS 

PC, TBLSRT 


CMD(R2),R11 
#L $ERRTBL,R1 


> 
PC,ETLLY 
ERRTYP+1 
| rand 


1 
+ (lhleemaathiaes 


PC,PRIERR 
<R5,R3> 
PC 


A A a 


; INCREMENT HARD WRITE ERROR 
IS IT A DATA SYNC TIMEOUT ? 
NO, KEEP TRYING 

SET UP TO = DST ERROR 


PRINT I 
;SET UP TO PRINT ERROR 


READ 
SINC THE HARD READ ERROR 
;SET UP TO PRINT ERROR 
;G0 SORT AND PRINT IT 
:IS IT A DATA SYNC TIMEOUT ? 
NO, KEEP TRYING 
+t THE HARD READ ERROR 
SET UP TO PRINT DST ERROR 
;G0 SORT AND PRINT IT 
sINC THE SOFT READ ERROR 
sWAS IT Ste BY ECC ? 
sNO, KEEP TRYING 


;WAS THE ERROR ON AN ECC BLOCK ? 
Y AGAIN 


;NO_ TRY 

;SET UP TO PRINT ERROR 

:GO SORT AND PRINT ERROR 
sas poe ON A TAPE MARK ? 


ET UP TO PRINT ERROR 
:GO SORT AND PRINT ERROR 
;WAS ERROR ON DATA BLOCK ? 


: NT ERROR 

GO SORT AND PRINT ERROR 
;SET UP RETRY RECOVERED 
;GO TALLY ERROR IN MEDIA T 


SEQ 107 


ABLE 
;GET THE COMMAND "tina let LATER USE 


sR1_ = SUPERVISORS ERROR T 
;COPY PROGRAM'S ERROR TABLE 
; TO SUPERVISOR'S 

ERROR 


; TABLE 

sRESTORE R1 

;TALLY ERROR FIRST 

sDISCARD INFO USED BY ERRTLLY 
;ARE SOFT ERRORS ENABLED ? 


3 T IT 
;I1S IT A WRITE TAPE MARK ? 
DON'T PRINT IT 


;ARE WE PRINTING . READ ERRORS ? 


NO, DON'T PRINT 
;GO PRINT IT 


} 
ee eae ee 


2 ee ee SS SSS. sss sss = 


| GLOBAL_AREAS 
' ERROR TALLY 


032036 


032116 


EQ 
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122737 


005211 
000207 


000106 


013263 
000076 


000020 
000100 
000100 


-SBTTL ERROR TALLY 
5 RE EEE EE 


; ERROR TALLY 


;Called By : ERRDEC, ERRDEI, ERRDEL 
ERRTLY:: 
PUSH <Ri> ;SAVE Ri 
013263 CMPB #NOERR ,ERRTYP +1 ;1S IT A STATUS ERROR ? 
BEQ 15$ ;YES, GET OUT 
MOVB ERRTYP+1,R1 ;PUT THE ERROR TYPE IN R1 
013263 CMPB #RMSPOS, ERRTYP+i ;1S IT A MISPOSITION ERROR 
BNE 10$ 3NO KEEP GOING 
000000 CMPB #WR,CMD(P2)> ;1S IT A WRITE ? 
BEQ ;NO TRY AGAIN 
000000 CMPB #W™M,CMDCR2) ;IS ITA a bia MARK ? 
BNE 10$ ;NO, MUST BE EAD 
S$: MOVB #WMSPO3,R1 SET IT TOA WRITE MISPOSITON 
10$: ADD R4,R1 ;ADD THE OFFSET TO THE LUN POINTER 
INC (R1) ;INC THE ERROR COUNT 
15$: POP <R1i> sRESTORE R1 AND R4 
RTS PC ;EXIT 


SEQ 108 


| GLOBAL AREAS 
| ERROR LOG TALLY 


4418 032120 


4429 032160 
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122737 


062701 
005211 


000207 


000106 
013263 
000001 
000002 


013263 


000055 


.-SBTTL ERROR LOG TALLY . 
EERE EERE EERE R EERE REE EE EER EEE EEE 


; ERROR LOG TALLY 


;Called By 

;Calls To 

;Inputs 

;Outputs : 
sRegister Inputs : 
sRegister Outputs: 


ETLLY:: 
PUSH <Ri> 
CMPB #NOERR ,ERRTYP+1 
BEQ ELTEXT 
MOVB ERRTYP+1,R1 
ADD R4,R1 
BITB #BITO,L.TRKCR3) 
BEQ 1$ 
ADD #2,R1 
1$: INC (R1) 
ELTEXT: POP <R1> 
RTS PC 


a 


SEQ 109 


SAVE R1 

;IS IT A STATUS ERROR ? 

;YES, GET OUT 

sLET R1 = THE ERROR TYPE 
;ADD_THE LUN BLOCK POINTER TO Ri 
sIS IT AN ODD TRACK NUMBER ? 
sYES, GO TALLY THE ERROR 

NO, TALLY THE EVEN TRACK 

;INC_ THE ERROR COUNT 

sRESTORE Ri 


;RETURN 


5 


' GLOBAL AREAS 
‘TABLE SORTER 


4480 
4481 


032210 
032212 


032214 


032234 
032236 


032264 
032266 


032270 
032276 
032300 
032306 
032314 


032316 
032324 


032370 


032372 
032376 
032400 


ee 
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012701 


001524 
126162 
101405 
062702 
020203 
001514 
000767 


126162 
001024 


001477 
000763 


026162 


000477 
026464 


052764 
013746 


000451 


016405 
010503 
162703 


003360 
000130 
000134 


000000 
000010 


000000 
000002 
000010 


000002 
000004 
000006 
000134 
000040 
000040 
002074 


036716 
000002 


000006 


000134 
000010 


000000 


000000 
000002 


000002 
000006 
000132 
000026 
000026 


-SBTTL TABLE SORTER 
EDP EET TPP Pet Pettit errr rire. 


; TABLE SORTER 
Called By 


sRegister Inputs : 
;Register Outputs: 


TBLSRT: : PUSH 
MOV 


5$: 


10$: 


15$: 
17$: 


20$: 


: ERRDEL 


<R1,R2,R3,R5> 
#UNTTBL ,R1 
TBLTOP(R4),R2 
LSTENT(R4),R3 
R2,R5 


R2,R3 
30$ 


Senne NR 
#8. ,R2 

R2,R3 

30$ 

1$ 

+ peaches 
PHBCR1),PHBCR2) 
10$ 

#8. ,R2 

R2,R3 

30$ 

5$ 

1+) Maller 
SWRCR1),SWRCR2) 
HWRCR1),HWRCR2) 
EXTSRT 

£2 StS), PLE RE) 
#MTBLOV,LUNFLG(R4) 
EXTSRT 
#MTBLOV,LUNFLG(R4) 
#TBLFUL,L$LUN 
L$LUN, -(SP) 
#TBLFUL, -(SP) 
#2,-(SP) 

SP ,RO 

C$PNTF 

#6,SP 
EXTSRT 
LSTENTCR4),R5 

5,R3 


#8. ,R3 


sFIRST ENTRY? 
YES, PUT IT IN THE TABLE 


;GET TO THE RIGHT TRACK 


sNEXT UNUSED SLOT ? 
YES, PUT IT IN THE TABLE 


a 


SEQ 110 


;SAVE R1,R2,R3,R5 ON STACK 
sINITIALIZE R1,R2,R3,R5 
sFOR LOCAL USAGE 


sMAKE SURE ITS THE SAME TRACK 
;IF OUR OBJ CNT HIGHER 


;GO TO NEXT TABLE _—— 


sNEXT UNUSED SLOT 


YES, PUT IT IN THE TABLE 


;IF THE ENTRY ALREADY EXIST 
;THEN ADD THE ERROR COUNT 


;IF THE TABLES FULL, GET OUT 


sMOVE THE TABLE CONTENTS 
;DOWN TO PUT IN THE ENTRY 


| 
i 


| 
| 


GLOBAL AREAS 
TABLE SORTER 


4482 032404 
4483 032412 
4484 420 


o 


4491 032462 
4493 032464 


4504 032534 


ee ee ed eee ee one 
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116365 


101350 


026464 
001715 


005061 
000207 


C00134 


000010 
000004 
000006 


po o'a's 4 25$: 


000007 


000132 30$: 


000134 353: 
EXTSR 


A 
SRT: 


TRKCR3), TRKCRS) 
PHB(R3),PHBCRS) 
SWRCR3),SWRCRS) - 
SRDCR3),SROCRS) 
HWRCR3),HWRCRS) 
a anaaan. 
RS,R2 

25$ 

LSTENT(R4), TBLBTM(R4) 
17$ 

R3,R1 

35$ 

R1,R3 

R2,R5 

25$ 

#8. ,LSTENTCR4) 
SWR(R1) 

HWRCR1) 


<R5,R3,R2,R1> 
PC 


SEQ 111 


sKEEP GOING TILL THE RIGHT SLOT 
;IS OPEN 


;IF THE TABLES FULL, GET OUT 


;ADJUST THE LAST ENTRY POINTER 
;CLEAR SOFT ERROR COUNTERS 
;CLEAR HARD ERROR COUNTERS 


sRESTORE REGISTERS 





A ee ee —— =< 


19 


| GLOBAL AREAS MACRO YOS.02 Thursday 18-Apr-85 13:37 Page 58 SEQ 112 
| PRINT ERROR 

4506 -SBTTL PRINT ERROR 

4507 Pitti rir iti trie i itt itt t ttt tte ttt tt 

4508 ; 

a536 ; PRINT ERROR 

4511 ;Called By : ERRDEC, ERRDEI, ERRDEL 

4512 ;Calls To : ERROR 

4513 sRegister Inputs : 

4514 ;Register Outputs: 

4515 

4516 032536 PRIERR: : 

4517 032536 010337 003560 MOV R3,R3SAVE ;SAVE R3 

4518 032542 010437 003562 MOV R4,R4SAVE SAVE R4 

4519 032546 ERROR ;ERROR MACRO 


032546 104460 TRAP C$ERROR 
RTS PC 


rst 032550 000207 ;RETURN 


ee | 


rrr re 


| GLOBAL _AREAS 
| COMPARE DATA 


4536 032552 


4566 032750 
4567 032754 


ee ee ee 
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010146 


011512 


012605 
012603 
012602 
012601 
004737 
105037 
004737 


010146 


022322 


000040 


011122 
013262 


032036 
013263 
032536 


003444 
000020 
000014 
003532 
000001 


000001 
000020 
003446 
000003 


070550 
070552 


050552 
003472 


000014 


000026 
003530 


003530 


003530 
000026 


002114 





-SBTTL COMPARE DATA 
5 RRR RARER ER EER EERE REE REE ERE EEE 


; COMPARE DATA 


;Called By 

;Calls To 

; Inputs 

; Outputs : 
;Register Inputs : 
iRegister Outputs: 


CMPDAT: : 
<R1,R2,R3,R5> 
SP) 


MOV »-(SP) ; ;PUSH 
CMP P.TRBC(R3),P.BCNTCR3) 
BEQ 5 

MOV iF 

MOV #L$ERRTBL ,R2 

MOV CR5)+,(R2)+ 

MOV (R5)+,(R2)+ 
+ MOV CR5)+,(R2)+ 

MOV CRS), (R2) 

POP <R5,R3,R2,R1> 

MOV (SP)+,R5 

MOV (SP)+,R3 

MOV (SP)+,R2 

MOV (SP)+,R1 

JSR PC,ERRTLY 

CLRB ERRTYP+1 

JSR PC,PRIERR 

PUSH <R1,R2,R3,R5> 

MOV 1,-(SP) 


S$: CLR CMPERR 
BIC #ODDFLG,LUNFLG(R4) 
MOV P.BCNT(R3),R8 


CLR R9 
BIT #BITO,R8& 
BEQ 10$ 


#BITO,R8& 
BIS #ODDFLG,LUNFLG(R4) 
10$: MOV #BYTADD,R1 

CMP #3,L$TEST 


BNE 11$ 
MOV #WRTBUF -2,R2 
BR 12$ 
11$: MOV #WRTBUF ,R2 
12s: MOV #RDBUF ,R3 
MOV #DATBL RS 
14$; CMP (R3)+,(R2)+ 


a 


SEQ 113 


; SAVE 7 Tad »R3,R5 


5 Cc 
;AS MANY BYTES READ AS WRITTEN ? 
;BRANCH IF YES 


;PUT THE RLS TABLE ADDRESS IN RS 
;PUT THE ERROR TABLE ADDRES IN R2 
;MOV THE RLS TABLE TO THE ERROR TABLE 


;RESTORE REGISTERS 


;sPOP STACK INTO 


;sPUSH RS _ON STACK 


;CLEAR LOCATION CMPERR 

;CLEAR THE ODD BYTE COUNT FLAG 
;PUT THE TAPE RECORD BYTE COUNT IN R8 
;CLEAR THE BYTE ADDRESS COUNTER 

;1S THE BYTE COUNT ODD 

;BRANCH IF NOT 

MAKE THE COUNT “ 

;SET THE ODD BYTE FLAG 

;LET R1 POINT TO THE ADDRESS TABLE 
sARE WE IN TEST 3 ? 

NO, SO JUST SET RDBUF IN BUFADR 
;LET R2 POINT TO THE WRITE BUFFER 


;LET R2 POINT TO THE WRITE BUFFER 
;LET R3 POINT TO THE READ BUFFER 

;LET RS POINT TO THE ERROR DATA TABLE 
s;COMPARE THE FIRST WORD OF DATA 


i GLOBAL AREAS 
' COMPARE DATA 
| 4568 032756 


033234 
033236 


— ee ee eee ee 
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001447 


011512 
012605 


000404 


012605 
012603 
012602 
012601 


177776 


003444 
003472 


177776 
177776 
003532 


003532 
177777 


003444 
003472 


177777 
177777 
003532 


003532 


000002 
003532 


000020 


003444 
003472 


000001 
003532 
003444 


011112 
013262 


032036 
013263 
032536 


177776 


000001 


177777 


000001 


003532 
003530 


000026 


15$: 


20$: 


25$: 
30$: 


35$: 


40$: 


25$ 
7 tata »LOBYTECR2) 


CMPERR 

#TBLEND,R1 

15$ 
LOBYTECR3),(RS) 

he tase” »ONECRS) 


° 
+ 


R9 
HIBYTECR3),HIBYTECR2) 
20$ 

CMPERR 

#TBLEND,R1 

20$ 


HIBYTE(R3),(RS) 
+ ae 


° 
+ 


RI 

30$ 

#2,R9 

R9,R8 

14$ 

+ 1 alent 
(R3),(R2) 
35$ 

CMPERR_~ - 
#TBLEND,R1 
35$ 
(R3),(R5) 
(R2),ONECRS) 
R9,C(R1)+ 


CMPERR 
40 
#DCMPT ,RS 


PC,PRIERR 

45$ 

<R5,R3,R2,R1> 
SP) 


(SP)+,R2 ;;POP 
(SP)+,R1 ; POP 


LL Le 


SEQ 114 


s;BRANCH IF THEY ARE EQUAL 
;COMPARE THE LOW BYTE 


; L 

;ADD_1 TO THE ERROR COUNT 

sIS THERE ROOM TO SAVE THIS DATA ? 

;BRANCH IF NOT 

;LOW READ BYTE IN SAVE BYTE 

;LOW WRITE BYTE IN SAVE BYTE 

sSAVE THE ADDRESS FOR PRINTING 

;POINT RS TO NEXT TABLE LOCATION 
YTE COUNT 


s;COMPARE THE HIGH BYTE 

;BRANCH IF THEY ARE THE SAME 

;ADD 1 TO THE ERROR COUNT 

sROOM TO SAVE THIS DATA ? 

;BRANCH IF NOT 

sHI READ BYTE TO LOW SAVE BYTE 

;HIGH WRITE BYTE TO HIGH SAVE BYTE 
sSAVE_THE ADDRESS TO PRINT 

;POINT RS TO THE NEXT TABLE LOCATION 
:ADD 2 TO THE BYTE COUNTER 


ADD 2 TO THE BYTE COUNT 
sHAVE WE COMPARED THEM ALL ? 
;NO, GO DO SOME 


I 
; COMPARE THE LOW BYTES 
;BRANCH IF THEY MATCH 
sADD_1 TO THE ERROR COUNT 
;1S THERE ROOM FOR THIS DATA ? 
;BRANCH IF NOT 
;LOW READ BYTE IN THE LOW SAVE BYTE 
;LOW WRITE BYTE TO HIGH SAVE BYTE 
sSAVE THE ADDRESS TO PRINT 


F NOT 
sPOINT RS TO THE DATA COMPARE ERROR TABLE 
;POINT R2 TO THE ERROR TABLE 

:MOVE THE DATA COMPARE COMPARE TABLE 

:T0 THE ERROR TABLE 


; RESTORE THE REGISTERS 
STACK INTO RS 
STACK INTO R3 
STACK INTO R2 
STACK INTO R1 
GO TALLY THE ERROR 
;CLEAR THE UPPER BYTE OF ERROR TYPE 
30 PRINT THE ERROR 


sEXIT 
hha THE REGISTERS 
STACK INTO RS 


STACK INTO R1 


| 
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‘ COMPARE DATA 
4617 033240 000207 45$: RTS PC 


L9 


A 6 ee Ee ES ae ans tee a ae 


;RETURN 


SEQ 115 


--__-_e-----__ C—O  '(“(— ——————————— ——— -- - - - 


GLOBAL AREAS 
UNJAM 


033370 


M9 
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003436 
000002 


003424 


000026 


-SBTTL UNJAM 
pPeCeSS SSS EE SEES EEE EEE SEE EEE EEE 


; UNJAM 


iCalled By 

Calls To 

H : Inputs 

; Outputs $ 
;Register Inguts : 
iRegister Outputs: 


UNJAM: : 
TST DUMPKT 
BEQ 15$ 
CMP SECRNS , CMDSEQ(R4) 
BEQ 15$ 
MOV Serica cat peal 
SUB SECRNS,S AVOIF 
ADD SAVDIF , CMDCNT 
ADD SAVDIF ,RSPCNT 
BIC @CMDONE , PCFLAG 
SUB SAVDIF, OBJFOL(R4) 
BCC 5$ 
DEC OBJFDH(R4 ) 
5$: CMP #N, SUBCNT 
BNE 10$ 
CLR SUBCNT 
10$: INC SUBCNT 
DEC SAVDIF 
BNE 5$ 
15$: BIS #SEREXC ,LUNFLG(R4) 
RTS PC 
ENDMOD 


sARE WE ISSUEING NULL COMMANDS 
YES , THEN EXIT 

;1S IT THE ONLY COMMAND OUT ? 
ET » THEN EX Hu 


SET UP TO UNJAM THE QUEUES 

; SUBTRACT CURRENT FROM THE HIGHEST 
sADJUST THE COMMAND COUNT 
sADJUST_THE RESPONSE COUNT 

;CLEAR THE ALL gee ISSUED FLAG 
sADUST THE OBJECT an 

;GET OUT IF NO CAR 

;OTHERWISE, ADJUST THE HIGH WORD 


sSET THE SERIOUS EXCEPTION FLAG 
RETURN 


SEQ 116 


— Ls tea aes 


N9 
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OCTAL -> HEX CONVERTER 


4656 -SBTTL OCTAL -> HEX CONVERTER 

4657 peeeeeeeeesereseseseseseseseseseees 

4658 $ 

4659 ; OCTAL -> HEX CONVERTER 

4660 3 

4661 

4662 033370 OCTHEX: : 

4663 033370 116337 000013 003552 MOVB P.STS*1(R3),LOHEX ;GET THE UPPER STATUS BYTE 
4664 033376 013737 003552 003554 MOV LOHEX, HIHEX ;GET A SECOND COPY 

4665 033404 042737 177760 003552 BIC 6177760, LOHEX ;CLEAR THE UNWANTED BITS 
4666 033412 042737 177417 003554 BIC 0177417, HIHEX ;CLEAR THE UNWANTED BITS 
4667 033420 006037 003554 ROR HIHEX ;SHIFT THE 

4668 033424 006037 003554 ROR HIHEX UPPER NIBBLE 

4669 033430 006037 003554 ROR HIHEX OVER 3 PLACES 
4670 033434 006137 003552 ROL LOHEX S SHIFT THE LOWER NIBBLE OVER 1 
4671 033440 062737 011442 003552 ADD @HEXTBL ,LOHEX ;ADD ASCII TABLE BASE ADDRESS 


4672 033446 062737 011442 003554 ~ ADD #HEXTBL , HIHEX ;ADD ASCII TABLE BASE ADDRESS 
4673 033454 000207 RTS PC ;RETURN 


TT or ——————  -” 


GLOBAL AREAS 
CLEAR EOT 


0 
4681 033456 
4682 oreaae 


0 
4696 033554 


—— ee ee eee 





B10 
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010146 


000207 


000154 
000152 


003350 


-SBTTL CLEAR E0T 





FRESHERS ERESEEEEEEEEE 


; CLEAR EOT 


CLREOT:: 
PUSH <R1,R2,R4> 
MOV R1,-(SP) 
MOV Ra tap} 


S$: ADD #2.,R1 

#1.,R2 
MOVB #-1,OLDTRK(R4) 
MOV #-1,OLDBLK(R4) 
ADD #LUNSTP ,R4 
BIC anette 
10$: CMP LSUNIT,R2 


$ 
POP <R4,R2,R1> 
d+,R4 


MOV hale 


;SAVE R1, R2, AND R4 

;;PUSH R1 ON STACK 

;:PUSH R2 ON STACK 

;3PUSH R4 ON STACK 
sCLEAR OUT R2 
sSET R1 TO THE FIRST UNIT 
sLET R4 EQUAL THE FIRDT LUN 
sADD 2 Li THE UNIT POINTER 
sADD 1 TO R2 
INITIALIZE OLD TRACK 
sINITIALIZE OLD BLOCK 
sSET R4 TO THE NEXT LUN 
;CLEAR THE om Oe DRINUS 


sHAVE WE DONE THEM ALL 
;NO, KEEP GOING TILL ALL DONE 
;RESTORE R4, R2, AND R1 
:3POP STACK INTO R4 
3:POP STACK INTO R2 
3;POP STACK INTO Ri 
;RETURN 


I 


SEQ 118 


LS 


| GLOBAL AREAS 
SEED SETUP AND 


033556 


0 
033630 
033632 


033632 


033702 
033704 


010146 


062704 
005301 
001363 
012604 


012601 
000207 


010146 


001363 


012604 
012601 
000207 


002012 
002314 
000136 
000140 
000142 
000172 


002012 
002314 
000144 
000146 
000150 
000172 


000144 
000146 
000150 


000136 
000140 
000142 
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ea ee. 


C10 


SEQ 119 


.SBTTL SEED SETUP AND SAVE 
FERRER RARE TEER REE AER REE EERE EE 


; SEED SETUP 


SDOSTUP:: 


<R1,R4> ; 
1,-(SP) ;sPUSH R1 ON STACK 
R4,-(SP) 33PUSH R4 ON STACK 
L$UNIT,R1 ; 
SED1(R4),SEEDI(R4) ; 
SED2(R4), SEED2(R4) : 
SED3(R4), SEED3(R4) ; 
#LUNSTP ,R4 : 
R1 ; 
S$ ; 
<R4,R1> H 
(SP)+,R4 ;sPOP STACK INTO R4 
(SP)+,R1 3sPOP STACK INTO R1 


FERRER EER ERE EERE REEEEEEEEE 


; SEED SAVE 


SDSAVE:: 
p 


5$: 


<R1,R4> : 

R1,-(SP) ;;PUSH R1 ON STACK 
»- (SP) ;:PUSH R4 ON STACK 

L$UNIT,R1 ; 

#LUNO,R4 ; 

SEED1(R4),SED1(R4) F 

SEED2(R4), SED2(R4) 3 

SEED3(R4),SED3(R4) F 

#LUNSTP ,R4 : 

R1 ; 

5$ ; 

<R4,R1> 3 

(SP)+,R4 3:POP STACK INTO R4 

(SP)+,R1 3:POP STACK INTO R1 


ee. =. oe 


TTT SS SS- st -ses-seeanee-steste se~ aeaesmene 


; GLOBAL AREAS 
PATTERN CLEAR 


033732 


- Dn ee wee cee 
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012704 


062704 
000770 
000207 


002314 
000024 
003072 


000172 


.SBTTL PATTERN CLEAR 
FERRER ERE EERE EEE REE EEE EE 


; 
; PATTERN CLEAR 
;THIS ROUTINE DOES NOT SAVE R4 AND THEREFORE SHOULD NOT BE CALLED FROM ANY 


s;PLACE OTHER THAN A TEST. 


PATCLR: 
1$: 


2$: 


#LUNO ,R4 
PATSAV(R4) 
#LUN3 ,R4 
2$ 

#LUNSTP ,R4 
1$ 


PC 


D10 


SEQ 120 


LLL TL SSS tsetse SS 


-4 


eases aes = 


‘ GLOBAL AREAS 
| CORE DUMP 


034036 
034042 


034064 





E10 


MACRO YOS.02 Thursday 18-Apr-85 13:37 Page 65 


010146 
010246 


010546 


012702 
016246 


062706 
062701 


101351 
000207 


020347 
000006 


000016 
002314 
002314 


000006 
000004 
000002 


020471 
000006 


000016 
000010 


000010 
010572 


.SBTTL CORE DUMP 
EERE EERE EER ER ERE ER EEEEE EERE EERE 


; CORE DUMP 


sOCCURRENCE OF ERRORS, WHEN ENEABLED BY THE OPERATOR VIA THE SOFTWARE 
sQUESTIONS. IT IS INTENDED PRIMARILY AS AN AID TO DEBUGGING THE 
ae i BUT MAY PROVE USEFUL IN ANALYZING CERTAIN DEVICE ERRORS 


CORDMP: 
PUSH <R1,R2> 
;;PUSH R1 ON STACK 


MOV R1,-(SP) 
V R2,-(SP) ;;PUSH R2 ON STACK 
PRINTF ~ ait meta 


MOV 1,-(S 

MOV #DUMP , - (SP) 
MOV #6,-(S 

MOV SP, 

TRAP C$PNTF 


MOV #LUNO,R1 ;PUT STARING ADDRESS IN R1 
#LUNO ,R2 ;AND ANOTHER COPY IN R2 
1$: PRINTF #DUMP2,R1,(R2),2(R2),4(R2),6(R2) 
MOV 6(R2),-(SP) 
MOV 4(R2),-(SP) 
MOV 2(R2),-(SP) 
MOV (R2),-(SP) 
R1,-(SP) 
MOV #DUMP2 , - (SP) 
MOV #6, -(SP) 
SP ,RO 
TRAP C$PNTF 
ADD #16,SP 


ADD #10,R1 ;UPDATE R1 

ADD #10,R2 sUPDATE R2 

CMP #IOERTB,R1 sARE WE AT THE END OF DUMP AREA 
BHI 1$ sKEEP GOING IF NOT 

POP <R2,R1> 

RTS PC 


SEQ 121 


i 
—— oe eee 


ET TTT TTT LT anne sess st seca sme 


a 2a < 


GLOBAL AREAS 
BUFFER DUMP 


t 
| 
| 4784 


034120 
4795 
4796 034124 


4800 034200 


4802 034202 
4803 034206 


ee ee ee 





F10 
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016301 
012702 


010146 


104417 
062706 


016246 


100351 


000207 


000014 
050552 


020430 
000002 


000006 


000010 
000006 
000004 
000002 


020471 
000006 


000016 
000012 
000012 


-SBTTL BUFFER DUMP 
EDEL E TTT Tit Pret Pi ttre rrr rir ir, 


; BUFFER DUMP 


BUFDMP: 


1$: 


5$: 


THIS —— WILL PRINT THE READ BUFFER FOR EVERY RECORD READ IN 


<R1,R2> 
P.BCNTC(R3),R1 
#RDBUF ,R2 ;GET BUFFER ADDRESS 
#DUMP1,R1 ;PRINT NUMBER OF BYTES 


Ri, -(SP) 
#DUMP 1, - (SP) 
#2,-(SP) 


SP; RO 
C$PNTF 
#6, SP 


#DUMP2 , (R2),2(R2),4(R2),6(R2),10(R2) 
10(R2),-(SP) 


6, -(SP) 


#12,R2 s;ADJUST BUFFER lla 
#12,R1 ;ADJUST BYTE COUNT 

S$ ;IF ZERO GET OUT 

1$ ;KEEP GOING IF POSITIVE 


;GET NUMBER OF BYTES X-FERRED 


SEQ 122 


i 


5 
034210 
5 


034210 
034210 


034210 


034252 
; 034254 


034260 


034274 
034300 
0 


034320 


034324 
034324 
034330 
034334 
034336 
034340 


034344 
034344 
034350 
034354 
034356 
034360 


8 
034364 


ee ee 


010146 


000137 


012746 
012746 
010600 
104416 
062706 


013746 
012746 
012746 
010600 
104416 
062706 


012746 
012746 
010600 
104416 
062706 


012746 
012746 
010600 
104416 
062706 


000400 


002074 
002314 
002012 
000010 


035346 


035464 
000001 


000004 


002074 
035467 
000002 


000006 


035533 
000001 


000004 


035600 
000001 


000004 


003516 


003350 


G 
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10 


SEQ 123 


- TITLE MISCELLANEOUS SECTIONS 
-SBTTL REPORT CODING SECTION 


BGNMOD 


poe 
; THE REPORT CODING SECTION CONTAINS THE 
; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 


L$RPT:: 


5$: 


BGNRPT 


PRINTS 


<R1,R4,R5> 
R1i,-(SP) 
R4,-(SP) 


RS,-(SP) 
#DROPIT ,PCFL 


L$UNIT,RS 
#DROP , DRINUS 
5$ 

15$ 

#STATO 
#STATO,-(SP) 
#1,-(SP) 
SP,RO 

C$PNTS 

#4 ,SP 
ete oe 


#STAT2 
#STAT2,-(SP) 
#1,-(SP) 

SP ,RO 

C$PNTS 

#4,SP 

#STAT3 
#STAT3,-(SP) 
#1,-(SP) 

SP ,RO 

C$PNTS 

#4,SP 

#STAT4 


;;PUSH R1 ON STACK 
;;PUSH R4 ON STACK 
;;PUSH RS ON STACK 
AG ;ARE WE DROPPING A UNIT 
YES, ONLY PRINT STATS FOR THIS UNIT 
ST UNIT 


: UNIT O 
;START WITH LUN BLOCK FOP UNIT 0 
;INIT UNIT COUNTER 

;HAS THE DRIVE a DROPPED ? 
;NO, PRINT ITS STATS 

;OTHERWISE GET THe NEXT DRIVE 


(R1) 


Se al a ee 2 


| MISCELLANEOUS SECTIONS 
| REPORT CODING SECTION 


034364 012746 
034370 012746 
010600 
034376 104416 
034400 062706 
4880 
4881 034404 
034404 016446 


rr 
> 
w 
s 
> 


034440 062706 
4882 
4883 034444 

034444 016446 


034470 062706 
4884 
4885 034474 

034474 016446 


€34530 062706 
4886 
4887 034534 

034534 016446 


034560 062706 
4888 
4889 034564 

034564 016446 


034604 062706 
4890 
4891 034610 
034610 016446 
034614 012746 
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035660 MOV #STAT4, -(SP) 
000001 MOV #1,-(SP) 

MOV SP,RO 

TRAP C$PNTS 
000004 ADD #4, SP 

PRINTS #STATS,S1IREAD(R4),S2READ(R4),SIWRITCR4),SQWRIT(R4) 
000046 MOV S2WRIT(R4), -C SP) 
000044 MOV SIWRITC(R4),-CSP) 
000042 MOV S2READ(R4),-( SP) 
000040 MOV S1READ(R4),-(SP) 
035705 MOV #STATS, -(SP) 
000005 MOV #5,-(SP) 

' MOV SP,RO 

TRAP C$PNTS 
000014 ADD #14 ,SP 

PRINTS #STAT6, 5 wert ye EC2COR(R4) 
000052 MOV EC2COR(R4 SP) 
000050 MOV ECICOR(R4), -(§P) 
035752 MOV #STAT6, -(SP) 
000003 MOV #3,-(SP) 

MOV SP ,RO 

TRAP C$PNTS 
000010 ADD #10,SP 

PRINTS #STAT7,HIREAD(R4),H2READ(R4),HIWRIT(R4) ,HOWRITC(R4) 
000062 MOV H2WRIT(R4), -(SP) 
000060 MOV HIWRITCR4),-CSP) 
000056 MOV H2READ(R4), -(SP) 
000054 MOV H1READ(R4), -(SP) 
036024 ~ MOV #STAT7,-(CSP) 
000005 MOV oe -(SP) 

MOV P,R 

TRAP C$PNTS 
000014 ADD #14,SP 

PRINTS #STAT8,RTYECI(R4), RTYEC2(R4) 
000066 MOV RTYEC2(R4), -( SP) 
000064 MOV RTYEC1I(R4),-(SP) 
036071 MOV #STATB, -(SP) 
000003 MOV #3,-(SP) 

MOV SP ,RO 

TRAP C$PNTS 
000010 ADD #10,SP 

PRINTS #STAT9,DTCPER(R4) 
000070 MOV DTCPER(R4),-(SP) 
036143 MOV #STAT9,-(SP) 
000002 MOV #2,-(SP) 

MOV SP ,RO 

TRAP C$PNTS 
000006 ADD #6, SP 

PRINTS #STAT10O, per 
000072 MOV UNDRUN(R4), -(SP) 
036222 MOV #STAT10, -(SP) 


SEQ 124 


RE TTT EE sts ste seesaw ote 


ee ee 


| MISCELLANEOUS SECTIONS 
| REPORT CODING SECTION 


034620 


4892 
4893 eeaees 


4894 
4895 geeees 


4896 
4897 034710 


4898 

4899 034734 
034734 
034740 
034744 
034750 
034752 
034754 

4900 

4901 034760 


4902 
4903 035020 
035020 


035050 


012746 


062706 


016446 
016446 


104416 
062706 


016446 


062706 


016446 


062706 


016446 


104416 
062706 


016446 
016446 
016446 
016446 
012746 
012746 
010600 








110 
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000002 MOV #2,-(SP) 

MOV SP,RO 

TRAP CSPNTS 
000006 ADD #6 , SP 

PRINTS #STAT11,0OVRRUNC(R4) 
000074 MOV OVRRUNCR4), -(SP) 
036272 MOV #STAT11,-(SP) 
000002 MOV #2,-(SP) 

MOV SP, 

TRAP C$PNTS 
000006 ADD #6, SP 

PRINTS #STAT12, ater WMSPOS(R4) 
000100 MOV WMSPOS(R4),-(SP) 
000076 MOV RMSPOS(R4),-(SP) 
036344 MOV #STAT12, -(SP) 
000003 MOV +5 -(SP) 

MOV P,RO 

TRAP C$PNTS 
000010 ADD #10,SP 

PRINTS #STAT13,OTHER(R4) 
000102 MOV OTHER(R4), -(SP) 
036405 MOV #STAT13, -(SP) 
000002 MOV #2,-(SP) 

MOV »RO 

TRAP C$PNTS 
000006 ADD #6, SP 

PRINTS #STAT14,DROPPD(R4) 
000104 MOV DROPPD(R4), -( SP) 
036430 MOV #STAT14,-(SP) 
000002 MOV »- (SP) 

MOV SP ,RO 

TRAP C$PNTS 
000006 ADD #6 , SP 

PRINTS #STAT15, myer Sie WRBYT3(R4),WRBYT2(R4),WRBYT1(R4) 
000120 MOV WRBYT1(R4), -(SP) 
000122 MOV WRBYT2(R4),-( SP) 
000124 MOV WRBYT3(R4),-(SP) 
000126 MOV WRBYT4(R4),-(SP) 
036453 MOV #STAT15,-(SP) 
000005 MOV #5,-(SP) 

MOV SP ,RO 

TRAP C$PNTS 
000014 ADD #14,SP 

PRINTS #STAT16,RDBYT4(R4),RDBYT3(R4),RDBYT2(R4),RDBYTI(R4) 
000110 MOV RDBYT1(R4),-(SP) 
000112 MOV RDBYT2(R4),-(SP) 
000114 MOV RDBYTSCR4), -¢ SP) 
000116 MOV RDBYT4(R4),-CSP) 
036525 MOV #STAT16,-(SP) 
000005 MOV #5,-CSP) 

MOV SP,R 


caicndeimiiaeiiaial 





et ee ee eee 


J10 
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| REPORT CODING SECTION 
035052 104416 TRAP C$PNTS 
9908 035054 062706 000014 ADD #14 ,SP 
4905 035060 PRINTS #STATO 
035060 012746 035464 MOV #STATO,-(SP) 
035064 012746 000001 MOV #1,-(SP) 
035070 010600 MOV P,RO 
035072 104416 TRAP C$PNTS 
9906 035074 062706 000004 ADD #4, SP 
4907 035100 032737 000100 003516 BIT #NOMDTB , PCFLAG ;IS THE TABLE TO BE PRINTED 
4908 035106 001117 BNE 15$ :NO, GET OUT 
4909 035110 PUSH <R1,R2,R3> 
4910 035116 016401 000130 MOV TBLTOP(R4),R1 sPOINT R1 TO THE TOP OF THE TABLE 
+44 035122 016402 000134 MOV LSTENT(R4),R2 sPOINT R2 TO THE LAST ENTRY IN TABLE 
4913 035126 PRINTS #STAT17,L$LUN 
035126 013746 002074 MOV L$LUN, -(SP) 
035132 012746 036577 MOV aSTATIZ. -(SP) 
035136 012746 000002 MOV #2,-(SP) 
035142 010600 MOV SP ,RO 
035144 104416 TRAP C$PNTS 
one 035146 062706 000006 ADD #6 , SP 
4915 035152 016103 000000 MOV TRKC(R1),R3 ;MOV_THE TRACK # TO TEMP STORAGE 
4916 035156 020102 10$: CMP R1,R2 sHAVE WE PRINTED ALL ENTRIES ? 
4917 035160 001451 BEQ 12$ sYES, GET OUT 
4918 035162 026103 000000 CMP TRKC(R1),R3 ;ARE WE STILL ON THE SAME TRACK ? 
4919 035166 001412 BEQ 11$ YES, KEEP GOING 
sant 035170 016103 000000 MOV TRKCR1),R3 sMOV THE TRACK # TO TEMP STORAGE 
4922 035174 PRINTS #STATO 
035174 012746 035464 MOV #STATO, -(SP) 
035200 012746 000001 MOV #1,-(SP) 
035204 010600 MOV SP, 
035206 104416 TRAP C$PNTS 
ones 035210 062706 000004 ADD #4, SP 
4924 035214 11$: PRINTS #STAT18,<B,TRK(R1)>,PHB(R1),<B,HWR(R1)>,<B,HRD(R1)>,<B,SWR(R1)>,<B,SRD(R1)> 
035214 005046 CLR P 
035216 156116 000005 BISB SROCRL), (SP) 
035222 005046 CLR 
035224 156116 000004 BISB SHRCRL), (SP) 
035230 005046 CLR 
035232 156116 000007 BISB ARBCR1), (SP) 
035236 005046 CLR -(SP) 
035240 156116 000006 BISB HWRCR1), (SP) 
035244 016146 000002 MOV ry Se -(SP) 
035250 005046 CLR P) 
035252 156116 000000 BISB TRK(R1), (SP) 
035256 012746 036647 MOV #STAT18,-(SP) 
035262 012746 000007 MOV #7,-(SP) 
035266 010600 MOV SP,RO 
035270 104416 TRAP C$PNTS 
035272 062706 000020 ADD #20,SP 


4925 
4926 035276 062701 000010 ADD #8. ,R1 STEP R1 TO THE NEXT TABLE LOCATION 


———— 


K10 
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REPORT CODING SECTI 


| 4927 035302 000725 
| 4928 035304 
| 4929 035312 032764 000040 000026 
4930 035320 001412 
4931 035322 
035322 013746 002074 
035326 012746 036716 
035332 012746 000002 
010600 
035340 104417 
035342 062706 000006 


2 
4933 035346 032737 000400 003516 


4935 035356 062704 000172 
4936 035362 062701 000002 
4937 035366 005237 002074 

| 


4940 035376 000137 034244 
4941 035402 105737 002212 
4942 035406 001421 


035410 005046 
035412 153716 002215 
035416 005046 
035420 153716 002214 
035424 005046 
035426 153716 002213 
035432 012746 020044 
035436 012746 000004 
035442 010600 
035444 104417 
035446 062706 000012 
4944 035452 
4945 035460 
035460 000167 
035462 001316 
4946 
4958 


15$: 


20$: 


25$: 


10$ 

<R3,R2,R1> 

eHTBLOV, »LUNFLGCR4 ) 
#TBLFUL ,L$LUN 

L P) 


$LUN,-(S 
#TBLFUL , -(SP) 
~ ad 


SP,RO 

C$PNTF 

#DROPIT ,PCFLAG 

25$ 

#LUNSTP ,R4 
»R1 

L$LUN 

RS 

20$ 

1$ 

CLOCK 


SEQ 127 


;NO, KEEP PRINTING 


;I1S THE TABLE FULL ? 
NO, GET NEXT DRIVE 
SPRINT TABLE FULL MESSAGE 


;ARE WE DROPPING A UNIT 

;YES, ONLY PRINT STATS FOR THIS UNIT 
;R4 POINTS TO NEXT LUN BLOCK 

;POINT R1 TO THE NEXT UNIT 

;POINTS TO NEXT UNIT NUMBER 

s ANY vet oe TO REPORT? 


THEN CAN'T PRINT TIME 


25$ NO, 
#TIME,<B,HOURS>,<B, MINUTE>, <B,SECOND>, 


-( 
SECOND , (SP) 
MINUTE, (SP) 
-(SP) 
HOURS , (SP) 
#4,-(SP) 

SP ,RO 
C$PNTF 
#12,SP 
<R5,R4,R1> 
RPT 

J$JMP 
L10007-2-. 


i —-- ee 


;RESTORE REGS 


— eee ee ee = + 


a eee Ce Se ee —_~ - _- --—- 


L10 


MISCELLANEOUS SECTIONS MACRO YOS.02 Thursday 18-Apr-85 13:37 Page 68 SEQ 128 
REPORT CODING SECTION 

ami sFORMAT STATEMENTS FOR PRINT CALLS 

4962 035464 045 16 STATO ASCIZ 


1 000 $ . ?8N? 
4963 035467 045 116 O45 STAT1: .ASCIZ ?sNSASTATISTICAL REPORT FOR UNIT #D1? 
4964 035533 045 116 045 STAT2: .ASCIZ ?8NSS8SSESSESSESSOSAREADSS4SSSSAWRITE? 
4965 035600 045 116 045 STAT3: .ASCIZ ?8NSS8SS8SS8SSESACH 18S48ACH 28S48ACH 18S48ACH 27 
4966 035660 045 116 045 STAT4: .ASCIZ ?sNSASOFT DATA ERRORS? 
4967 035705 045 116 045 STATS: .ASCIZ ?8NSA RETRY RECOVEREDSS8SD8sD8sD8s08? 
4968 035752 645 116 045 STAT6: .ASCIZ ?s8NSA ECC CORRECTED sS8SD8SD8sSS8NA N.A.? 
4969 036024 045 116 045 STAT7: .ASCIZ a” DATA ERRORS #S8#D8sD8sD8sD8 ? 


oR 
4972 036222 045 116 045 STAT10: .ASCIZ ?sNSADATA UNDERRUNS#SS78S78S7SAN. 4. ome 
4973 036272 045 116 045 STATI1: .ASCIZ ?s#NSADATA OVERRUNSSS8SS8sD8sS8NA A.? 

4974 036344 045 116 045 STAT12: .ASCIZ ?sNSAMISPOSITIONS #S8sS8sD8sS8sD8? 

4975 036405 045 116 045 STAT1I3: .ASCIZ ?#NSAOTHERS #S88D8? 

4976 036430 045 116 045 STAT14: .ASCIZ ?sNSADROPS #58808? 

4977 036453 045 116 045 STATIS: .ASCIZ ?sNSABYTES WRITTEN #038A,8Z38A,8Z38A,823? 

4978 036525 045 116 045 STAT16: .ASCIZ ?sNSABYTES READ SD38A ,SZ38A, 8Z3KA, 823? 

4979 036577 045 116 045 STAT17: .ASCIZ ?s8NSA TRK PHY BLK HWR HRD SWR SRDSN? 

4980 036647 045 116 045 STATI8: .ASCIZ ?8N#SS28D28S38D58S38D36S 26D 38S2ND38S2ND3? 

4981 036716 045 116 045 TBLFUL::.ASCIZ ?sNSAUNIT #D18A MEDIA DATA TABLE HAS OVERFLOWEDsSNsN? 


4985 037002 ENDRPT 
037002 L10007: 
037002 104425 TRAP C$RPT 


—_— — a meme ee ee 
—— ee ee 


M10 
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INITIALIZE SECTION 
4987 -SBTTL INITIALIZE SECTION 
2989 | 
4990 ; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
4991 ; AT THE BEGINNING OF EACH PASS. 
4992 he 
4993 
4994 037004 BGNINIT 
037004 L$INIT: : 
4995 
4996 037004 STINIT: : 
4997 037004 "READEF EF .START 
037004 012700 000040 MOV EF START ,RO 
037010 104447 TRAP _—CSREF 
4998 037012 8COMPLETE START 
4999 Cole 108414 BCS START 
5000 037014 READEF 9EF .RESTART 
037014 012700 000037 GEF ‘RESTART ,RO 
037020 104447 TRAP CSREFG 
5001 037022 BCOMPLETE START 
ae 037022 103410 BCS START 
5003 037024 READEF #€F .NEW 
037024 012700 000035 MOV #EF -NEW,RO 
037030 104447 TRAP —_C$REFG 
5004 037032 BCCMPLET NUPASS 
soos Oo rose 103463 BCS 
5006 037034 READEF EF . CONTINUE 
037034 012700 000036 MOV #EF . CONTINUE ,RO 
037040 104447 TRAP _C$REFG 
5007 037042 BCOMPLETE NUPASS 
soos Oo 7Oe2 108457 BCS NUPASS 
5009 037044 112737 000001 003564 START: MOVB  #1,DAYS ;SET TO FIRST DAY 
5010 037052 005037 003522 CLR PASCNT ;CLEAR THE PASS COUNTER 
3011 037056 005037 003444 CLR CMPERR ;CLEAR THE COMPARE ERROR COUNTER 
5013 037062 012701 002314 MOV #LUNO,R1 ;SET R1 TO THE FIRST LUN 
5014 037066 010102 S$: MOV R1,R2 ;LET R2 = RL 
5015 037070 062702 000156 ADD @URSPBF ,R2 SLET R2 = THE END OF THE CLEAR AREA 
5016 037074 005021 10$: CLR (R1)- ;CLEAR THE LUN LOCATION 
5017 037076 020201 CMP R2,R! ;ARE WE AT THE END OF THE CLEAR AREA 
5018 037100 001375 BNE 10$ ;NO, KEEP CLEARING 
5019 037102 062701 000014 ADD #14,R1 ;SET R1 TO THE NEXT LUN BLOCK 
5020 037106 022701 003264 CMP oPCMDBF ,R1 ;HAVE WE DONE THEM ALL 
2021 037112 001365 BNE 5$ G0 CLEAR THE NEXT LUN BLOCK 
5023 037114 005021 - 15$: CLR (R1)- ;CLEAR THE LOCATION AND GET THE NEXT 
5024 037116 022701 003400 CMP @CMDCNT,R1 ;HAVE WE CLEARED THEM ALL ? 
3025 037122 001374 BNE 15$ ;NO, KEEP GOING 
5027 037124 012701 110552 MOV @MEDIAS ,R1 ;PUT THE STATS TABLE ADDRESS INTO Rl 
5028 037130 005021 20s: CLR (R1)s ;CLEAR THE LOCATION ANC GET THE NEXT 
5029 037132 022701 115612 CMP @PATCH,R1 ;HAVE WE CLEARED THEM ALL ? 


5030 037136 001374 BNE 20$ NO, KEEP GOING 





a ee 


a 
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INITIALIZE SECTION 


5031 
5032 037140 


7 
5038 037172 
5039 037176 
5040 037200 
5041 
5042 037202 


5043 037204 
5044 037210 


504 
5046 037216 


5047 
5048 037220 


eeer 037240 
5055 037242 


st 94 037256 
5060 037260 


5063 037274 
5065 037276 


5067 037304 
5068 037310 


069 
5070 037316 


5085 
5086 037414 


013702 
022702 


001004 
012737 
000421 


022702 
001004 
012737 
000412 
022702 
001004 
012737 
000403 
012737 


012704 
012737 


013764 


062704 
005302 


052737 
012702 


SS TT 


001210 


002314 
110552 


003530 


000172 


003516 
003526 
002012 
003522 
002227 


000100 
003566 


000136 
000140 
000142 


003534 
003544 


003544 
003544 
003530 
000130 
000134 


003530 
000132 


003524 


003516 


253: 


30$: 


NUPASS: 


1$: 


3$: 


S$: 


10$: 


15$: 


208: 


258: 


30$: 





N10 
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R4) 
@RS2, SED2(R4) 
@RS3,SED3(R4) 


@LUNSTP ,R4 
R2 
25$ 


C$RESET 
PASCNT 

1$ 

CLRMED 

25$ 

L$UNIT,R2 
#1,R2 
#U10FF , TBLOFF 
15$ 


#2,R2 

S$ 
#U20FF , TBLOFF 
15$ 

#3,R2 

10$ 
#U3OFF , TBLOFF 
15$ 
#U4OFF , TBLOFF 
#LUNO ,R4 
#MEDIAS ,R8& 
RB, ged 


R8,LSTENTCR4) 


TBL OFF R8 
R8, TBLBTM(R4) 
* LUNSTP ,R4 


2 
20$ 
PCFLAG 
VEOT 
L$UNIT ,UDROP 
PASCNT 
MEDTBL 
30$ 
#NOMDTB ,PCFLAG 
@CMDBF 1 ,R2 


SEQ 130 


;SET R4 TO THE FIRST LUN 

;SET UP R2 

;SET UP THE SEED IN THE LUN BLOCK 
;SET UP THE SEED IN THE LUN BLOCK 
;SET UP THE SEED IN THE LUN BLOCK 


;SET UP THE NEXT LUN BLOCK 
sDECREMENT R2 
;DID YOU O00 THEM ALL 


:IS THIS THE FIRST PASS My 

;YES GO CLEAR THE MEDIA TABLE 

;ARE WE CLEARING THE MEDIA TABLE ? 
;NO GET OUT 


;SET_UP 

:IS THERE 1 UNIT ? 

sNO, CHECK AGAIN 

;SET OFFSET FOR 1 UNIT IN TBLOFF 
;GO GET STARTED 


:IS THERE 2 At, ? 

;NO, CHECK 

;SET OFFSET *FOR "2 UNITS IN TBLOFF 
;GO GET STARTED 


;I1S THERE 3 UNITS ? 

sNO, CHECK AGAIN 

;SET OFFSET FOR 3 UNITS IN TBLOFF 
;GO GET STARTED 


;SET OFFSET FOR 4 UNITS IN TBLOFF 


;SET R4 TO THE FIRST 
s;PUT THE STAT TABLE ADDRESS IN R8 


;PUT THE TOP TABLE ADOR IN LUN BLOCK 
;PUT THE ens & ENTRY ADOR IN LUN BLOCK 
;ADD THE LENGTH FOR EACH UNIT 

sPUT THE TABLE BOTTOM POINTER IN LUNBLK 
;SET UP Ll NEXT LUN BLOCK 

;DECREMENT R 

DID YOU DO THEM ALL 

;CLEAR THE PROGRAM CONTROL FLAG. 

;CLEAR THE EOT FLAG 

;SET UP_THE DROP UNIT FLAG 

;ADD 1 TO PASS COUNTER 

;I1S THE MEDIA a TO BE PRINTED 

YES, DON'T DQ ANYTHI 

sNO, SET THE PROGRAM CONTROL FLAG BIT 


;PUT COMMAND BUFFER ADDRESS IN R2 


MISCELLANEOUS SECTIONS 
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037420 
037422 
9 037426 


037430 


94 037442 


037444 
037452 


037454 
5100 037462 
037464 
037470 


04 037476 


032761 
001054 


032761 
001002 


005064 
012761 
012764 
012764 


037554 010300 
037556 
037556 
037560 
037560 


037562 
037566 
037572 
037600 


037604 
037610 
037614 
037620 
037622 


037624 


104442 
103011 


042737 


5134 037666 000240 


— ee ee ee 
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010226 


002314 
902012 


000020 


000010 


000000 
000002 
000002 
000004 


000002 
000001 
000172 


000002 
000000 
021044 
000004 
000003 


000010 
177546 


003350 


003350 


003350 


000022 


000002 


003516 


35$: 


40$: 


45$: 


50$: 
55$: 


60$: 


CLR (R2)+ 

CMP #DSRNGO -R2 

BNE 35$ 

MOV #LUNO, R4 

MOV L$UNIT,R2 

CLR R1 

CLR R3 

BIT #F AIL ,DRINUS(R1) 

BNE 60$ 

BIT #DROP ,DRINUS(R1) 

BNE 50$ 

CLR UNDROP(R4 ) 

MOV #AVB ,DRINUS(R1) 

MOV #OCMDBF , aged, 
MOV #DCMDBF .COLSAV(R4) 
MOV UCDSRG(R4), CMDSSV(R4) 
MOV URSPBF (R4),RNUSAV(R4 ) 
MOV URSPBF(R4),ROLSAV(R4) 
CLR CMDSEQ(R4) 

CLR OBJFDL(R4) 

CLR OBJFDH(R4 ) 

CLR SLTUSE(R4 ) 

MOV R3,RO 

GPHARD RO,RO 


TRAP GPHRD 
BNCOMPLETE 60$ 
BCC 60$ 


MOV (RO), TKIP(R4) 
MOV (RO)+, TKSACR4) 
ADD #2, TKSACR4) 
MOV (RO), TKUNITCR4) 
ADD #2,R1 
ADD #1. ,R3 
ADD #LUNSTP ,R4 
DEC R2 
BNE 40$ 

os #NCLKFL ,PCFLAG 
SETVEC #4, #NOCLK, #PRIOO 
MOV #PRIOO, -( SP) 
MOV #NOCLK , - (SP) 
MOV #4,-(SP) 
TRAP C$SVEC 
ADD #10,SP 
TST KWCSR 
NOP 
NOP 


a ee ek 


SEQ 131 


sCLEAR THE we oa 
sARE WE AT THE END OF THE BUFFER ? 
sKEPP GOING TILL WE ARE 


sSET R4 TO THE FIRST LUN 
SET UP R2 


CLEAR RL 
sCLEAR R3 


sHAS THIS DRIVE FAILED ? 
sYES, GET NEXT UNIT 


;DID THIS DRIVE DROP LAST TIME 
YES, KEEP GOING 

;OTHERWISE CLEAR THE DROP COUNTER 
;SET UP ALL DRIVES TO AVAILABLE 


;SET UP NEW COMMAND BUFFER SAVE 
;SET UP OLD COMMAND BUFFER SAVE 
;SET UP OLD RESPONSE BUFFER SAVE 
;CLEAR THE COMMAND REFERENCE NUMBER 
;CLEAR THE LOW OBJECT FIELD 


;CLEAR THE HIGH OBJECT FIELD 
s;CLEAR THE SLCT IN USE FLAG 


sSET Rl TO THE NEXT UNIT 
sGET NEXT UNIT 

;SET UP Le NEXT LUN BLOCK 
sDECREMENT R2 

;DID YOU. Do THEM ALL 


sGET READY TO TEST FOR CLOCK PRESENT 
sSET VECTOR 4 IN CASE NO CLOCK 


sIS THE CLOCK THERE ? 


pea 


| MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


ee oe eee = es 


5136 


037670 
037670 


037734 


037742 
037744 


037772 
037774 


040176 


012700 
104436 
032737 
001016 


012746 
012746 


012737 


005001 
005037 
012704 


032761 
001547 
032761 
001143 
012764 
004737 
112737 
012705 
004737 
032761 
001523 


012764 
004737 


032761 
001503 


012764 
004737 


004737 


001442 
016403 





Cil 
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000004 
000002 


000000 
021100 


000010 
000100 


002074 
002314 


000001 
000004 


000377 
026230 
000004 


040336 
021406 
000001 


000377 
026230 
000004 
000006 
021406 
000001 


000377 
026230 
000004 
000006 
021406 


000377 


000001 


000022 


003516 


177546 


003350 
003350 


000010 


010571 


003350 


000010 
010571 


003350 


000010 


010571 


000010 
010571 
003440 


003350 


ISTART: 


1$: 


5$: 


10$: 


15$: 


CLRVEC #4 

MO 4, 
C$CVEC 

BIT #NCLKFL ,PCFLAG 
ISTART 

SETVEC #100, #KWHDL , #PRIOO 

MOV #PRIOO, -(SP) 

MOV #KWHDL , - (SP) 

MOV #100, -(SP) 


MOV #3,-(SP) 
TRAP C$SVEC 


ADD #10,SP 

MOV #100, KWCSR 
CLR Ri 

CLR L$LUN 


MOV #LUNO,R4 

BIT #AVB ,DRINUS(R1) 

BIT #EOT ,DRINUS(R1) 
20$ 

MOV #377, SLTUSE(R4) 
PC,PRTCLR 

MOVB #4,CROLIM 

MOV #INITIT,RS 
PC,CMMDSQ 

BIT #AVB ,DRINUS(R1) 
20$ 

MOV #377, YY anil 
PC,PRTCLR 

MOVB #4 ,CRDLIM 

ADD #TSTSTP,RS 
PC, CMMDSQ 

BIT #AVB ,ORINUS(R1) 
20$ 

MOV #377, SLTUSE(R4) 

JSR PC,PRTCLR 

MOVB #4 ,CROLIM 

ADD #TSTSTP,RS 

JSR PC,CMMDSQ 

MOV #377, SLTUSE(R4) 
PC,PRTCLR 


MOV #AVLB, TSTMSK 
JSR PC. CHMDSG 


STMSK 
BIT #AVB ,DRINUS(R1 ) 
20$ 


MOV ROLSAV(R4),R3 


Ee —= <= 


SEQ 132 
;RETURN VECTOR TO TRAP CATCHER 


sWAS A CLOCK PRESENT ? 
NO CLOCK, START REGULAR INIT 
;SET UP THE CLOCK VECTOR 


sENABLE THE CLOCK INTERUPTS 


;SET Ri TO FIST UNIT 
;SET L$LUN TO FIRST UNIT 
SET R4 TO THE FIRST LUN BLOCK 


;SEE IF DRIVE IS PRESENT AND me 
;GET THE NEXT DRIVE IF IT ISN’ 

;CHECK IF THE DRIVE IS AT EOT 

;GET NEXT DRIVE IF IT IS 


;SET “atte SLOTS TO THE PORT 
;CREDITS START AT 4 FOR NEW LUN 


sPUT INIT TEST TABLE ADDRESS IN R5 
;G0 DO INIT ON THIS DRIVE 

sSEE IF DRIVE IS PRESENT AND yet 
;GET THE NEXT DRIVE IF IT ISN’ 


sSET ALL_RESPONSE SLOTS TO THE PORT 


sCREDITS START AT 4 FOR NEW LUN 

sPOINT RS TO THE SCC COMMAND 

:GO DO SCC ON THIS DRIVE 

sSEE IF DRIVE IS PRESENT AND SuAE. ROLE 
;GET THE NEXT DRIVE IF IT ISN’ 


;SET ALL RESPONSE SLOTS TO THE PORT 
;CREDITS START AT 4 FOR NEW LUN 
;POINT RS TO THE ONL COMMAND 

;GO DO ONLINE ON THIS DRIVE 

:SET ALL RESPONSE SLOTS TO THE PORT 
sCREDITS START AT 4 FOR NEW LUN 


sPOINT RS_TO THE GUS COMMAND 
ALLOW UNIT eng Be 


; S 
;SEE IF DRIVE IS PRESENT AND AVATLAGLE 
;GET. THE NEXT QRIVE IF IT ISN’ 


;LET R3 = OLD RESPONSE BUFFER POINTER 


j 
eee ee oe ee eee — 


OL LTT estes steers sss see st-sesne st tte ee s 
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5185 040202 
5186 040206 


5187 


040332 
040334 


040366 
940366 


162703 


005237 
104422 
000137 


104432 
000032 


000000 
000001 


a es 


Dil 
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000104 UB #DRBSTP,R3 ADJUST R3_ BACK TO THE LAST RESPONCE 
co tt } ie »L$LUN,<B,P. CSVR(R3)>, <B,P.CHVRCR3)> 
000051 ty ,. oe (SP) 
000050 BISB Pp. CSVRCR3), (SP) 
002074 MOV L$LUN, -(SP) 
020532 MOV @CONTRV, -(SP) 
000004 MOV 4,-(SP) 
MOV SP ,RO 
TRAP C$PNTF 
000012 ADD #12,SP 
Sy gee @UNTTRV, <B,P.USVR(R3)>,<B,P.UHVR(R3)> 
000053 BISB P. UHVRCR3), (SP) 
CLR SP 
000052 BISB P-USVR(R3), (SP) 
020662 MOV #UNITRV, -CSP) 
000003 MOV #3,-(SP) 
MOV SP ,RO 
TRAP C$PNTF 
000010 ADD #10,SP 
000006 20$: CMP #6. ,R1 sHAVE WE DONE THEM ALL ? 
BEQ EXTINT ;GET OUT 
000002 ADD #UNTSTP,R1 ;GET NEXT UNIT 
000172 ADD #LUNSTP ,R4 ;SET UP THE NEXT LUN BLOCK 
002074 INC L$LUN ;GET NEXT UNIT 
BREAK 
TRAP C$BRK 
037754 JMP 1$ :GO DO THE NEXT ONE 
EXTINT: EXIT INIT 
TRAP CSEXIT 
-WORD L10010-. 
;INIT TEST TABLE 
INITIT:: -BYTE INT s INITIALIZATION TABLE 
-BYTE NULPAT 
-WORD 0 
WORD 1 


L10010 


-EVEN 


ENDINIT 


-BYTE cc sSET CONTROLLER CHARACTERISTICS TABLE 


‘ 1 
-BYTE ONL ONLINE TABLE 


WORD 

-WORD 1 

-BYTE GUS GET UNIT STATUS TABLE 
BYTE NULPAT 

WORD 0 

WORD 1 


OL LL LLL SSS tS SSE sl teen tte sana 


me ee ee 


—— een ae eee ee 


Eli 
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INITIALIZE SECTION 


040366 104411 
| 
i 


TRAP C$INIT 


ae ee TT 


SEQ 134 


Fil 
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| INITIALIZE SECTION 


5220 040370 BGNAUTO 
040370 L$AUTO:: 

5221 040370 “ ENDAUTO 
040370 L10011: 
040370 104461 TRAP C$AUTO 


SEQ 135 


“MISCELLANEOUS SECTIONS MACRO YOS.02 Thursda 
i 


NUP CODING SECTION 


| 5204 


5260 040440 
040440 
040440 


032737 
001005 
005037 


012700 
104436 


042737 


104432 
000002 


104412 


000002 
177546 
000100 


000400 
000100 


003516 


003516 
003516 
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-SBTTL CLEANUP CODING SECTION 


; THE CLEANUP C 


ODING SECTION CONTAINS THE CODING THAT IS PERFORMED 


; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 


L$CLEAN: 


5$: 


EXTCLN: 


L10012: 


BGNCLN 


-EVEN 
ENDCLN 
TRAP 


;WAS A CLOCK PRESENT ? 


#NCLKFL ,PCFLAG 
5 sNO CLOCK, DO REPORT 


$ 
KWCSR 


00 
#100,RO 
C$CVEC 


C$DRPT 
#DROPIT ,PCFLAG 
EXTCLN 


L 
#NOMDTB , PCFLAG 
CLN 
CSEXIT 
L10012-. 


Re 
rary 


C$CLEAN 


SEQ 136 


_ MISCELLANEOUS — MACRO YOS.02 Thursda 


ee ee ee 


| OROP UNIT SECTIO 


| 


010146 


052737 
010046 
104424 
012600 
042737 
105737 
001415 


010246 


001375 
012603 


052761 


104451 
005037 


012601 


012727 
000000 
013727 
000000 


000104 
000400 


000400 
002230 


000040 
000130 


000001 
000004 


000004 
003524 
000010 
000032 
000012 


000020 


003406 


000024 
002116 


003516 


003516 


003350 
003350 


003350 


003350 
000032 
003350 
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-SBTTL DROP UNIT SECTION 


SEQ 137 


* THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
; TO NO LONGER BE TESTED. 


DROPUN: : 


2s: 


3$: 


S$: 
10$: 


15$: 


<R1> 
R1i,-(SP) 
RO,R1 


Ri 
DROPPD(R4) 
os" »PCFLAG 


RO,-(SP) 


C$DRPT 
<RO> 


(SP)+,RO 
#DROPIT ,PCFLAG 
NOCLR 


#SiREAD, R2 
#TBLTOP ,R3 


(SP)+,R2 
#AVB ,DRINUS(R1) 
#EOT ,DRINUS(R1) 


$ 
#EOT ,DRINUS(R1 ) 
10$ 


UDROP 
#DROP , DRINUS(R1) 


UNDROP(R4 ) 
#10. ,UNDROP(R4 ) 


15 
ne ROE) 


20. 
#20. ,(PC)+ 
SOL. .£PC Ds 


;SAVE R1 

;;PUSH Ri ON A 
sPOINT Ri TO THE DRINUS TABLE 
;MULTIPLY BY 2 
;INC DROPPED FLAG FOR THIS UNIT 
;SET THE UNIT DROP FLAG 


;SAVE RO 
;;PUSH RO ON STACK 
;GO PRINT UNIT STATS 


RESTORE RO 
;;POP STACK INTO RO 
;CLEAR THE DROP FLAG 
;00 WE WANT TO CLEAR STATS ON ERROR ? 
NO, DON'T CLEAR THE STATS 


;s;PUSH R2 ON STACK 
;sPUSH R3 ON STACK 
sSTARTING ADDRESS OF STATS IN R2 
;END ADDRESS OF STATS IN R3 
;ADD THE LUN BLOCK ADDRESS TO R2 
sADD THE LUN BLOCK ADDRESS TO R3 
CLEAR THE LOCATION 
ARE WE AT THE END OF THE STATS 
;NO, KEEP CLEARING 


;sPOP STACK INTO R3 
;sPOP STACK INTO R2 
;CLEAR THE ah a IN DRIVE IN USE TABLE 
;IS THE DRIVE AT EOT ? 
;BRANCH IF NOT 
;CLEAR THE EOT BIT IN DRIVE IN USE TABLE 


GET OUT 

;SUBTRACT 1 TO DROPPED FLAG 

;SET DRIVE IN USE TABLE TO DROPPED 
sADD 1 TO THE UNIT DROP COUNT 

1 WE on ERRORS ? 


GE 
‘Set THE DRIVE TO FAIL 


;CLEAR THE RESPONSE STATUS 
ORE R1 


;;POP STACK INTO R1 
;DELAY FOR AWHILE 


OS 


ee ed | ee ee 


| MISCELLANEOUS SECTIONS 
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040644 
040650 


040704 
040704 
040704 


005367 


004737 
000207 


000167 
000000 


104453 


“Ti 
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177772 
177756 
000000 


000377 
026230 


000010 


L$DU:: 


L10013: 
T 


-6(PC) 
-22(PC) 


.-20 
R1,a@TKIPCR4) 
#377, SLTUSE(R4) 
PC,PRTCLR 


J$JMP 
L10013-2-. 


C$DU 


ie te + 


SEQ 138 


FLUSH THE DRIVE 
;SET ALL RESPONCE SLOTS TO PORT 
;GO =" THE PORT 


-_— SL LLL I AS + vane ee ee ee ee 


Jil 
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| ADD UNIT SECTION 


| 5330 -SBTTL ADD UNIT SECTION 
i 5331 
5332 i+e 
5333 ; THE ADD-UNIT SECTION CONTAINS ANY CODE THE PROGRAMMER WISHES 
5334 ; TO BE EXECUTED IN CONJUNCTION WITH THE ADDING OF A UNIT BACK 
5335 ; TO THE TEST CYCLE. 
5336 3-- 
5337 
5338 040706 BGNAU 
040706 L$AU:: 
5339 
5345 
5346 040706 EXIT AU 
040706 000167 -WORD J$JMP 
040710 000000 -WORD L10014-2-. 
5347 
5359 
5360 EVEN 
5361 
5362 040712 ENDAU 
040712 L10014: 
536 040712 104452 TRAP C$AU 


3 
a4 040714 ENDMOD 


SEQ 139 


i 
eee eee oe ee eee — Ss 


SS st tes tes ae 





K11 
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; ADD UNIT SECTION 


0 
5444 040746 


5446 040752 
5447 040756 


4 
5455 041060 
5456 041064 


105737 
001414 


013746 


000137 


005737 
001014 


013746 


000137 


105737 
001421 


005046 
153716 


062706 


004737 
012737 


002234 


002114 
021001 
000002 


000006 
042624 
003524 
002114 


021001 
000002 


000006 
042624 
002212 


002215 
002214 
002213 


020044 
000004 


000012 


033456 
000100 003440 


. TITLE HARDWARE TESTS 
-SBTTL TEST 1: Basic Function Test 


SEQ 140 


BGNMOD 
;+* 
iThis test will execute a subset of the legal commands on the unit 
sunder test. It serves as a quick verify test to ascertain that the 
;unit can move tape and write/read predictably, without error. The 


;subset of legal commands will be issued in a coherent manner. 


BGNTST 
TSTB T3ONLY 
BEQ START1 
PRINTF #BYPASS,L$TEST 
MOV L$TEST,-(SP) 
MOV #BYPASS, -(SP) 
MOV #2,-(SP) 
V SP ,RO 
TRAP C$PNTF 
#6, SP 
JMP TIEXIT 
START1: an > ial 
PRINTF #BYPASS,L$TEST 


MOV L$TEST,-(SP) 
MOV Selig ale 


Ti:: 


MOV #2, - 
MOV SP, 
TRAP C$PNTF 
DD #6, SP 
JMP T1EXIT 
S$: TSTB CLOCK 
BEQ GO 


ty a tS ate 
BISB MINUTE, (SP) 
C -(SP) 

BISB HOURS , (SP) 
MOV #TIME , -( SP) 
MOV Td 


»RO 
TRAP C$PNTF 
ADD #12,SP 


JSR PC,CLREOT 
MOV #ONLB, TSTMSK 


;CHECK THE TEST 3 ONLY FLAG 
s;BRANCH IF IT IS CLEAR 
sPRINT THE TEST BYPASSED MESSAGE 


;JUMP IF IT IS NOT CLEAR 
sHAVE ALL_UNITS BEEN DROPPED ? 


3NO, CONTINUE 
;PRINT THE TEST BYPASSED MESSAGE 


;GET OUT IF NONE LEFT TO TEST 


sIS THE CLOCK ENABLED 
HEN CAN'T PRINT TIME 


1 iNO, T 
“¥ pad OTINE . <B HOURS>, <B MINUTE>, <B, SECOND>, 


sMAKE SURE EOT STATUS IS CLEAR 
sALLOW ALREADY ONLINE STATUS 


4 


ce on 


= = oe 


Lil 
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este 041336 


51 2 
5512 041346 
5513 041352 


012705 
004737 


012705 
004737 
005737 
001002 
000137 
012705 
004737 
005737 
001002 
000137 


052737 


001002 
000137 


012705 


000137 


012705 
004737 


000137 
012705 
004737 
004737 
005737 


042630 
021240 
003524 
042624 
003440 
042636 
021240 
003524 
042624 
042644 
021240 
003524 
042624 
042666 
021240 
003524 
042624 


000001 003440 
76 


003440 


021240 
003524 


042624 


003524 


5$: 


10$: 


15$: 


208: 


25$: 


30$: 


35$: 


40$: 


#T1ONL ,RS 
PC, SCHED 
UDROP 


5$ 
T1EXIT 


TSTMSK 

#TIREW,RS 

PC, SCHED 

UDROP 

10$ 

T1EXIT 

#TILEOT,RS 
CHED 


UDROP 
15$ 
T1EXIT 


#T1ISKR,RS 
PC, SCHED 
UDROP 

20$ 
T1EXIT 
#LEDB, TSTMSK 
#T1SKD,RS 
PC, SCHED 
#LEDB, TSTMSK 
UDROP 

25% 
T1EXIT 
#TIREW,RS 
PC, SCHED 
UDROP 

30$ 
T1EXIT 
#T1iWR1,R5 
PC, SDSTUP 
PC, SCHED 
UDROP 

35$ 
T1EXIT 
#T1WTM,RS 
PC, SCHED 
UDROP 

40$ 
TIEXIT 
#T1WR2,R5 


PC,SDSTUP 
PC, SCHED 
UDROP 


—_—_—_—_———_ A 


SEQ 141 


;SET_UP TO DO AN a 
;GO ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 
3NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


Et U NO ERRORS 
T_UP 


; COMMAND 
;HAVE ALL UNITS BEEN DROPPED ? 
NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO DO 2 TAPE MARK COMMANDS 
;GO ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 
;NO, CONTIN 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SKIP REVERSE 2 TAPE MARKS 
;GO ISSUE THE COMMAN 

sHAVE ALL_UNITS BEEN DROPPED ? 

;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO ALLOW LEOT DETECTED 
sSET UP TO DO A SPACE TO LEOT 


UE THE CO 
;DISALLOW LEOT DETECTED 
;HAVE ALL_UNITS BEEN DROPPED ? 
NO, CONTINUE 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO DOA oo 

;G0 ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 
;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;WRITE 99, 512 BYTE RECORDS 
OM SEEDS 

;GO I OMMAND 

NO. con ALL uate BEEN DROPPED ? 

;GET OUT iF NONE LEFT TO TEST 


;SET UP TO WRITE A TAPE MARK 


:GO ISSUE THE COMMAND 
TO con ALL_UNITS BEEN DROPPED ? 


CONTIN 
;GET OUT IF NONE LEFT TO TEST 


s;WRITE 84, 525 BYTE RECORDS 
;RESET THE tg ok SEEDS 
;G0 ISSUE THE COMMAND 
sHAVE ALL UNITS BEEN DROPPED ? 


ee 
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041624 
041630 


ee ee 


001002 
000137 


012705 
004737 


012705 
004737 
005737 
001002 
000137 
012705 

37 


012705 
004737 
005737 
001002 
000137 
012705 

37 


012705 
004737 


021240 
003524 


042624 
042652 
021240 
003524 
042624 
043034 
033556 
021240 
003524 
042624 
042652 
021240 
003524 
042624 
043042 
033556 
021240 
003524 
042624 


042644 
021240 


45$: 


50$: 


55$: 


60$: 


65$: 


75$: 


80$: 


855: 


BNE 
JMP 


45$ 
TIEXIT 
#TiWTM,RS 
PC, SCHED 
UDROP 

50$ 
TIEXIT 
#T1WR3,RS 
PC, SDSTUP 
PC, SCHED 
UDROP 

5S$ 
T1EXIT 
#T1WTM,RS 
PC, SCHED 
UDROP 

60$ 
T1EXIT 


#T1WR4 RS 


T1EXIT 
#T1WT™M,RS 
PC, SCHED 
UDROP 
70$ 
TIEXIT 
#T1WRS,RS 
PC, SOSTUP 
PC, SCHED 
UDROP 
75$ 
T1EXIT 
#T1WTM,RS 
. SCHED 
80$ 
TIEXIT 
#T1WR6 RS 
PC, SDSTUP 
PC, SCHED 
UDROP 
85$ 
TIEXIT 


#TILEOT,RS 
PC, SCHED 


Mii 


;NO, CONTINUE 
:GET OUT IF NONE LEFT TO TEST 


;SET_UP TO WRITE A TAPE MARK 
GO ISSUE THE COMMAND 

sHAVE ALL _UNITS BEEN DROPPED ? 
sNO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


;WRITE 69, 1038 BYTE RECORDS 
;RESET THE RANDOM SEEDS 

:GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 


:NO, INT INUE 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO WRITE A TAPE MARK 
:GO ISSUE THE COMMA 

sHAVE ALL_UNITS BEEN DROPPED ? 
sNO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


sWRITE 54, 1551 BYTE RECORDS 
;RESET THE RANDOM SEEDS 

:GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
i CONTINUE 


;GET OUT IF NONE LEFT TO TEST 


;SET_ UP TO WRITE A a MARK 
:GO ISSUE THE COMM 
gg BEEN DROPPED ? 


3NG, CONTINUE 
;GET OUT IF NONE LEFT TO TEST 


sWRITE 39, 2064 BYTE RECORDS 
;RESET THE RANDOM SEEDS 

GO ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 
NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


sSET UP TO WRITE A TAPE MARK 
GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
3NO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


;WRITE 24, 2577 BYTE RECORDS 
;RESET THE RANDOM SEEDS 

;GO ISSUE THE COMMAND 

sHAVE ALL _UNITS BEEN DROPPED ? 
iNO, CONTINUE 

GET OUT IF NONE LEFT TO TEST 


SEQ 142 


sSET UP TO WRITE LOGICAL END OF TAPE 
OMMAND 


3GO ISSUE THE C 


<n ese ee =n 


Nii 
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TEST 


: Basic Function T 


94 041740 012705 
004737 
96 041750 005737 


041754 001002 


; 041756 000137 
00 041762 012705 


042000 000137 
042004 012705 


042022 000137 


1 
042026 012705 
004737 


042036 005737 
042042 001002 
042044 000137 


7 
042050 012705 
042054 004737 


_<comm ea Aae  ACCCCCCt A AAMGMMLLLL A BBB LLL LLL 


003524 
042624 


042636 
021240 
003524 


042624 


043050 
033556 
021240 
003524 


042624 
042660 
021240 
003524 
042624 
042674 
021240 
003524 
042624 
042660 
021240 
003524 
042624 
042702 


021240 
003524 


003524 
042624 


043100 
033556 
021240 
003524 


042624 
042724 


021240 
003524 


905: 


95$: 


100$: 


1058: 


110$: 


115$: 


1208: 


125$: 


130$: 


TST 
BNE 


UDROP 

90$ 
TIEXIT 
@TIREW,RS 
PC, SCHED 
95$ 
TIEXIT 
#T1RD01,R5 
PC ,SDSTUP 
PC, SCHED 
UDROP 
100$ 
TIEXIT 
@TISKP RS 
PC, SCHED 


UD 
105$ 
TIEXIT 


#T1SPC1,R5 
PC, SCHED 
UDROP 
110$ 
T1EXIT 
#TISKP,RS 
PC, SCHED 
UDRO 
115$ 
TIEXIT 
#T1SPC2,R5 
PC, SCHED 
UDROP 
120$ 
T1IEXIT 
#T1SP01,R5 
PC, SCHED 
UDROP 
1253 
TLIEXIT 
#T1RDS,RS 
PC, SDSTUP 
PC, SCHED 
UDROP 
130$ 
TIEXIT 
#T1SKR1,RS 
CHED 


;HAVE ALL UNITS BEEN DROPPED ? 
:GET OUT IF NONE LEFT TO TEST 


;SET UP TO REWIND 
= ISSUE THE COMMAND 
MO CONTINUE BEEN DROPPED ? 


ONT 
;GET OUT IF NONE LEFT TO TEST 
eet ¥ TO READ 100 RECORDS 
ANDOM SEEDS 


:G0 HE COMMAND 

;HAVE ALL_UNITS BEEN DROPPED ? 
3NO, CONTINUE 

GET OUT IF NONE LEFT TO TEST 


;SET_UP TO SKIP A TAPE MARK 
;GO ISSUE THE COMMAND 
sHAVE ALL UNITS BEEN DROPPED ? 


;NO, CONT 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SPACE 84 RECORDS 
;G0 ISSUE THE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 
NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SKIP A TAPE MARK 
GO ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 
3NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SPACE 69 RECORDS 
GO ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 
NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SPACE 56 OBJECTS 
;GO ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 
NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO READ 39 RECORDS 
;RESET THE RANDOM SEEDS 

GO ISSUE THE COMMAND 

;HAVE ALL_UNITS BEEN DROPPED ? 


NO, CONTINUE 
GET OUT IF NONE LEFT TO TEST 
;SET UP TO SKIP REVERSE 4 TAPE 


;GO ISSUE THE COMMAND 
;HAVE ALL UNITS BEEN DROPPED ? 


SEQ 143 


MARKS 
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Basic Function 


5628 042112 
5629 042114 


360 
5684 042364 


001002 
000137 


012705 
004737 


001002 
000137 


000137 
012705 


012705 
004737 
005737 
001002 


042624 


042660 
021240 
003524 
042624 


043056 
033556 
021240 
003524 


042624 


042732 
021240 
003524 


042624 


043072 
033556 
021240 
003524 


042624 
042740 
021240 
003524 
042624 
042746 
021240 
003524 
042624 
042754 
021240 
003524 
042624 
042710 
021240 
003524 
042624 
042660 


021240 
003524 
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BNE 135$ 

JMP TIEXIT 
135$: MOV @T1SKP ,RS 

JSR PC, SCHED 

TST UDROP 

BNE 140$ 

JMP TIEXIT 
140$: MOV #T1RD2,R5 

JSR »SOST 

JSR PC, SCHED 

TST UDROP 

BNE 145$ 

JMP T1EXIT 
145$: MOV #T1SP02,R5 

JSR PC, SCHED 

TST UDROP 

BNE 150$ 

JMP TLIEXIT 
150$: MOV #T1RD4,R5 

JSR PC,SDSTUP 

JSR PC, SCHED 

TST UDROP 

BNE 155$ 

JMP TIEXIT 
155$: MOV #T1SP03,R5 

JSR PC, SCHED 

TST UDROP 

BNE 160$ 

JMP TIEXIT 
160$: MOV #T1SPR1,R5 

JSR PC, SCHED 

TST 

BNE 165$ 

JMP TIEXIT 
165$: MOV #T1SKP1,R5 

JSR PC, SCHED 

TST UDROP 

BNE 170$ 

JMP TIEXIT 
170$: MOV #T1SPC3,R5 

JSR PC, SCHED 

TST UDROP 

BNE 175$ 


JMP TLEXIT 

MOV #T1SKP,RS 

JSR PC, SCHED 
UDROP 

BNE 180$ 


175$: 


3NO, CONTINUE 
;GET OUT IF NONE LEFT TO TEST 


sSET_UP TO SKIP TAPE MARK FORWARD 
:GO ISSUE THE COMMA 
sHAVE ALL UNITS BEEN DROPPED ? 


3NO, CONTINUE 
:GET OUT IF NONE LEFT TO TEST 


;SET UP TO READ 84 RECORDS 
sRESET THE RANDOM SEEDS 

G0 ISSUE THE COMMAND 

sHAVE ALL _UNITS BEEN DROPPED ? 
3NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


s;SET_UP TO SPACE 71 OBJECTS 
:GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
3NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP_TO READ 54 RECORDS 
sRESET THE RANDOM SEEDS 

GO ISSUE THE COMMAND 

sHAVE ALL _UNITS BEEN DROPPED ? 
3NO, CONTINUE 

GET OUT IF NONE LEFT TO TEST 


sSET_UP TO SPACE 66 OBJECTS 
GO ISSUE THE COMMAND 

sHAVE ALL _UNITS BEEN DROPPED ? 
3NO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


;SET_UP TO SPACE REVERSE 375 OBJECTS 
;G0 ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 

NO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


sSET_UP TO SKIP FORWARD 4 TAPE MARKS 
3GO ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 

3NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


sSET_UP TO SPACE 39 RECORDS 
:GO ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 
3NO, CONTINUE 

sGET OUT IF NONE LEFT TO TEST 


;SET UP TO SKIP A TAPE MARK 
+GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
3NO, CONTINUE 


TS : s-ssses- -~eenr atenen t ste wtt omnn 
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000137 
012705 
004737 


5685 042366 042624 
5686 


043106 
033556 
021240 
003524 


042624 


042762 
021240 
003524 


042624 


042770 
021240 
003524 


042624 


042660 
021240 
003524 


042624 


043064 
033556 
021240 
003524 


042624 


042636 
021240 
003524 


042624 


000001 
042776 
021240 
000001 
003524 


042624 


042636 
021240 


004737 
5690 042406 005737 
001002 
000137 


012705 
004737 


012705 
004737 
004737 
005737 


001002 
000137 


012705 
001002 
000137 


052737 00344 


00344 
012705 
004737 


104432 


042626 600266 
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JUMP TIEXIT 
180$: MOV #T1RD6.RS 
JSR PC, SDSTUP 
JSR PC, SCHED 
TST UDROP 
BNE 185$ 
JUMP T1EXIT 
185$: MOV #T1SKP2,R5 
JSR PC, SCHED 
TST UDROP 
BNE 190$ 
JMP T1EXIT 
190$: MOV #T1SPR2,R5 
JSR PC, SCHED 
TST UDROP 
BNE 195$ 
JUMP TIEXIT 
195$: MOV @T1SKP RS 
JSR PC, SCHED 
TST UDROP 
BNE 200$ 
MP TIEXIT 
200$: MOV #T1RD3,R5 
JSR PC, SDSTUP 
JSR C. SCHED 
TST UDROP 
BNE 205$ 
JUMP TIEXIT 
205$: MOV #T1REW,RS5 
JSR PC, SCHED 
TST UDROP 
BNE 2108 
JMP TIEXIT 
0 210%: BIS #LEDB, TSTMSK 
MOV #T1SKD.R5 
JSR PC, SCHED 
0 BIC #LEDB, TSTMSK 
TST UDROP 
BNE 215$ 
MP TIEXIT 
215$: MOV #TIREW.RS 
JSR PC, SCHED 
TIEXIT: EXIT ‘TST 
TRAP C$EXIT 
.WORD L10015-. 


;GET OUT IF NONE LEFT TO TEST 


;SET UP TO READ B24 RECORDS 
sRESET THE RANDOM SEEDS 

G0 ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 
;NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO SKIP 2 TAPE MARKS 
;GO ISSUE THE COMMA 

sHAVE ALL_UNITS BEEN DROPPED ? 
3NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


SEQ 145 


;SET_UP TO SPACE REVERSE 192 OBJECTS 


GO ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 
3NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


sSET_UP TO SKIP A TAPE MARK 
sGO ISSUE THE COMMAND 

;HAVE ALL UNITS BEEN DROPPED ? 
NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO READ 69 RECORDS 
sRESET THE RANDOM = 

GO ISSUE THE COMMAND 

sHAVE ALL UNITS BEEN DROPPED ? 
;NO, CONTINUE 

GET OUT IF NONE LEFT TO TEST 


SET UP TO REWIND 

GO ISSUE THE COMMAND 

sHAVE ALL_UNITS BEEN DROPPED ? 
3NO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


sSET UP TO ALLOW LEOT DETECTED 
sSET_UP TO SKIP TO LEOT 

GO ISSUE THE COMMAND 
sDISALLOW LEOT DETECTED 

sHAVE ALL _UNITS BEEN DROPPED ? 
sNO, CONTINUE 

;GET OUT IF NONE LEFT TO TEST 


;SET UP TO REWIND 
3GO ISSUE THE COMMAND 
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ui 
~ 
Ww 
woo 
fw 
o 
w 
So 


5792 042730 
5794 042732 


ui 
~ 
wo 
rere 
g 
tw 
~ 
™w 
o 


a 


000000 
000001 


160 
000 
000000 


000001 
000000 
000001 
000002 
000124 
000105 
000047 
000070 


000004 
000001 


070 


TIONL : 


TIREW: 


TILEOT: . 
B 


TIWTM: 


T1SKP: 


T1SKR: 


TISPC1: . 
TISPC2: . 
115PC3; 
TISPO1: . 


TISKR1i: . 
B 


T1SP0e2: 





-BYTE 


Page 75 


WT™™ 
NULPAT 





Die 


SEQ 146 


s;ONLINE COMMAND 
3;NO DATA NEEDED 
NO ITEM COUNT 

300 IT ONE TIME 


sREWIND COMMAND 


I 
;D0 IT ONE TIME 


;WRITE TAPE MARK 
;NO DATA NEEDEN 
sNO ITEM COUNT 
300 IT TWICE 


;WRITE TAPE MARK 
3NO DATA NEEDED 
sNO ITEM COUNT 

;D0 IT ONE TIME 


3SKIP TAPE MARK 
NO DATA NEEDED 

;SKIP 1 TAPE MARK 

300 IT ONE TIME 


SKIP TAPE MARK REVERSE 
;NO DATA NEEDED 

sSKIP REVERSE 2 TAPE MARKS 
3D0 IT ONCE 


SPACE RECORDS 
3NO DATA NEEDED 
SPACE 84 RECORDS 
3D0 IT ONE TIME 


sSPACE RECORDS 
sNO DATA NEEDED 
SPACE 69 RECORDS 
;D0 IT ONE TIME 


;SPACE RECORDS 
3NO DATA NEEDED 
SPACE 39 RECORDS 
;D0 IT ONE TIME 


sSPACE OBJECTS 
3NO DATA NEEDED 
;SPACE S56 OBJECTS 
300 IT ONE TIME 


SKIP TAPE MARK REVERSE 
;NO DATA NEEDED 

34 TAPE MARKS 

300 IT ONCE 


sSPACE OBJECTS 
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v de 


5795 
5796 
5797 
5798 
5799 
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042733 
042734 
042736 


042740 


000 
000107 
000001 

070 

000 
000102 
000001 

071 


000004 
000002 


000300 
000001 


062 


000 
000004 
000001 


000026 


002016 
000105 


020 
004 
003017 
000066 


020 
003 
004020 


T1iSPO3: . 


TISPR1i: . 


TISKP1: . 


TISKP2: . 


T1SPRe: . 


T1SKD: 


T1WR1: 


T1WRe: 


TIWR3: 


TIWR4: 


T1WRS: 





ae. 
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NULPAT 
71. 


SEQ 147 


;NO DATA NEEDED 
;SPACE 71 OBJECTS 
;D0 IT ONE TIME 


;SPACE OBJECTS 
s;NO DATA NEEDED 
;SPACE 66 OBJECTS 
300 IT ONE TIME 


sSPACE OBJECTS REVERSE 
NO DATA NEEDED 

;SPACE 375 OBJECTS 

;D0 IT ONE TIME 


;SKIP TAPE MARKS 
;NO DATA NEEDED 
;SKIP 4 TAPE MARKS 
;D0 IT ONE TIME 


;SKIP TAPE MARKS 
;NO DATA N NEEDED 
SKIP 2 TAPE MARKS 
:D0 IT ONE TIME 


; SPACE yok: REVERSE 
;NO DATA NEEDED 

; SPACE 192 OBJECTS 

;D0 IT ONE TIME 


;SKIP TO LEOT 
3NO DATA NEEDED 
sNO ITEM COUNT 
;D0 IT ONE TIME 


;WRITE RECORD 

sDATA PATERN 1 CALL 1'S) 
;BYTE COUNT OF 512. 

;D0 IT 99 TIMES 


;WRITE RECORD 

sDATA PATERN 2 CALL 0'S) 
sBYTE COUNT OF 525 

;D0 IT 84 TIMES 


;WRITE RECORD 

;DATA PATERN 3 (WORST MFM) 
sBYTE COUNT OF 1038 

;D0 IT 69 TIMES 


;WRITE RECORD 

;DATA PATERN 4 co. TERATE 1'S AND 0'S) 
sBYTE COUNT OF 1551 

;00 IT 54 TIMES. 


sWRITE RECORD 
;DATA PATERN 3 (WORST MFM) 
sBYTE COUNT OF 2064 


' ‘ 
ee ee ES ss = nL —A— Css sas scans ssl 
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043040 


rs 


000047 
020 
001 

005021 

000030 
010 


001 
000026 
000143 


001015 
0 


3 
002016 
000105 


010 


004 
003017 
000066 


0 
005021 
000030 


104401 


T1WR6: 


TiRD1: 


T1IRD2: 


T1RD3: 


T1RD4: 


T1RDS: 


T1RD6: 


-EVEN 


ENDTST 
L10015: 
TRAP 
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39. 


CSETST 


File 


SEQ 148 


;D0 IT 39 TIMES 


;WRITE RECORD 

re PATERN 1 to 1'S) 
;BYTE_ COUNT OF 

;00 IT 24 TIMES” 


;READ RECORD 

;DATA PATERN 1 oat i*$) 
;BYTE COUNT OF 

;00 IT 99 TIMES 


;READ RECORD 

;DATA PATERN 2 CALL 0'S) 
;BYTE COUNT OF 525 

;D0 IT 84 TIMES 


;READ RECORD 

;DATA lg ; bs MFM) 
;BYTE COUNT OF 1038 

;D0 IT 69 TIMES: 


;READ RECORD 

;DATA PATERN 4 CALTERNATE 1'S AND 0'S) 
;BYTE COUNT OF 1551 

;00 IT 54 TIMES 


;READ RECORD 

;DATA PATERN 3 po gm MFM) 
;BYTE COUNT OF 2064 

300 IT 39 TIMES 


;READ RECORD 

;DATA PATERN 1 CALL 1'S) 
s;BYTE_COUNT OF 2577 

;D0 IT 24 TIMES 





Gle 
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T 2: Quick Verify Write/Read Test 


043262 
5928 043266 
44 043272 


105737 
001414 


013746 


000137 


005737 
001014 


013746 
012746 


000137 


105737 
001421 


005046 


004737 
005037 
005037 


002234 


002114 
021001 
000002 


000006 
043534 
003524 
002114 


021001 
000002 


000006 
043534 
002212 


002215 
002214 
002213 
020044 
000004 
000012 
033456 


003520 
003440 


SEQ 149 


.-SBTTL TEST 2: Quick Verify Write/Read Test 


;+* 


;This test rewinds the tape, then executes the following sequence: 


; 1. 
3 2. 


:for 5 iterations or until fatal error 


spermits retries, fixed record length (2048 bytes), fixed number of 


Write record set, 
Reposition over just written record set, 
Then read the current record set, 


iS encountered. This test 


;records/set (400), and predetermined data patterns. This test will 
in @ round-robin manner. 


;execute 


T2:: 


START2: 


5$: 


G02: 


BGNTST 


T3ONLY 

START2 
#BYPASS,L$TEST 
L$TEST,-CSP) 
#BYPASS,-(SP) 
#2,-(SP) 

SP ,RO 

C$PNTF 

#6, SP 

T2EXIT 

UDROP 

5$ 
#BYPASS,L$TEST 
L$TEST,-(SP) 


T2EXIT 
CLOCK 


;CHECK THE TEST 3 ONLY FLAG 
;BRANCH IF IT IS CLEAR 
s;PRINT THE TEST BYPASSED MESSAGE 


GET OUT 
sHAVE ALL + ee DROPPED ? 


;GO START THE TES 
;PRINT THE TEST BYPASSED MESSAGE 


;GET OUT IF NONE LEFT TO TEST 


;3IS THE CLOCK Peete 
3NO, THEN CAN'T PRINT TIME 


G02 
TEN: »<B,HOURS>,<B, MINUTE>, <B,SECOND>, 


SECOND , (SP) 
-(SP) 
MINUTE, (SP) 
-(SP) 
HOURS , (SP) 
#TIME , -(SP) 
#4, -(§P) 
SP ,RO 
C$PNTF 
#12,SP 
PC,CLREOT 
OBJECT 
TSTMSK 


sMAKE SURE EOT STATUS IS CLEAR 
;CLEAR THE OBJECT COUNTER 
;ALLOW NO ERRORS 


' 
— ee ee 


es ee ee D -eee oae ome 








H1le 
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| 7 
| 5933 


Lee 043352 
5948 043354 


043542 


5984 043544 
5985 043545 


012705 
004737 
005737 
001510 


004737 
012705 
004737 
005737 
001477 
012705 
004737 
005737 
001470 
012705 
004737 
005737 
001461 


005737 


001444 
004737 


001433 
066537 


052737 


001413 
066537 


022737 


004737 
104432 
000046 


160 
000 


043544 
021240 
003524 


033556 
043552 
021240 
003524 


043560 
021240 
003524 


043544 
021240 
003524 
003520 
043602 
003520 


021240 
003524 


033556 


003524 
000004 
soe 
003524 
000004 
004716 
043544 


021240 
033632 


000002 


003520 
003440 


003440 


003520 
003520 


5$: 


10$: 


T2EXIT: 


T2REW: 


.-BYTE 
-BYTE 


#T2REW,RS 
PC, SCHED 
UDROP 


T2EXIT 

PC, SDSTUP 
#T2WRT,RS 
PC, SCHED 
UDROP 
T2EXIT 
#T2LEOT,RS 
PC, SCHED 
UDROP 
T2EXIT 


#T2REW,RS 
PC, SCHED 
UDROP 


T2EXIT 

OBJECT 

10$ 

#T2SP0,R5 

OBJECTS, ITMCNT(R5) 
et , SCHED 

T2EXIT 

PC,SDSTUP 

#T2RD,RS 

PC, SCHED 

UDROP 

T2EXIT 

ITRCNTC(RS), OBJECTS 
#LEDB , TSTMSK 
#T2SKD,R5 

PC, SCHED 

#LEDB, TSTMSK 

UDR oe 

T2EXI 

TTRCNTCRS), OBJECTS 
g seMe .SBLECTS 
#T2REW,RS 

PC, SCHED 

weg eosnve 


CSEXIT 
L10016-. 


—_ 
w 


REW 
NULPAT 


SEQ 150 


;SET_UP TO DO A REWIND 

;G0 ISSSUE A REWIND T0 ne DRIVES 
sHAVE ALL_UNITS BEEN DROPPED ? 
;GET OUT IF NONG LEFT TO TEST 


;RESET THE RANDOM SEEDS 

;SET UP TO DO A WRITE ITERATION 
;G0 ISSSUE WRITES TO ALL DRIVES 
;HAVE ALL _UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;SET_UP TO DO A WRITE LEOT 

;GO ISSSUE WRITES TO ALL DRIVES 
sHAVE ALL_UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;SET_UP TO DO A REWIND 

;GO ISSSUE A REWIND TO ALL DRIVES 
;HAVE ALL_UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


sIS_ THIS THE FIRST TIME THROUGH ? 
sYES, DON'T DO THE SPACE FORWARD 

sSET UP TO SPACE OBJECTS 

sSET_UP # OF OBJECTS TO SPACE FORWARD 
sGO ISSSUE A REWIND TO ALL DRIVES 
sHAVE ALL _UNITS BEEN DROPPED ? 

;GET OUT IF NONE LEFT 10 TEST 


RESET THE RANDOM SEEDS 

;SET_UP TO DO A READITERATION 
#GO ISSSUE READS TO ALL DRIVES 
sHAVE ALL_UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
sADD THE # OF RECORDS TO OBJECTS 


sSET UP TO ALLOW LEOT DETECTED 
sSET_UP TO DO A SKIP TO LEOT 

;GO ISSSUE READS TO ALL DRIVES 
;DISALLOW LEOT DETECTED 

sHAVE ALL_UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
;ADD THE # OF RECORDS TO OBJECTS 


sHAVE WE DONE 2 TRACKS ? 
;NO, KEEP GOING 
;SET_UP TO DO A REWIND 
;GO ISSSUE A REWIND TO ALL DRIVES 
RESET THE RANDOM SEEDS 


;REWIND 
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T 2: 
5986 


043546 


4444 043550 


043576 


043610 
043610 
043610 


ee ee ee ee ae ome 


000000 
000001 


020 
003 
010000 
000372 
100 
000 
000000 
000002 
010 
003 
010000 
000372 


000062 


000001 
000001 


104401 


TQWRT: 


T2LEOT: . 
B 


T2RD: 


T2SKD: 


T2SP0: 
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CSETST 





Iie 


;WRITE RECORDS 


;WRITE TAPE MARK 
sNO DATA NEEDED 
NO ITEM COUNT 
;D0 IT TWICE 


;READ RECORDS 


;SKIP TAPE MARK TO LEOT 
3NO DATA NEEDED 

;SKIP_ 50 TAPE MARKS 

;D0 IT ONE TIME 


;SPACE OBJECTS 


, 
. 





a eee 





Jle2 
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' TEST 3: Complex Write/Read Test 
$338 -SBTTL TEST 3: Complex Write/Read Test 
6020 p++ 
ret! iThis test rewinds the tape, and executes the following sequence: 
6023 3 1. Write 1000 records, 
6024 ; 2. Write a file mark, 
6025 3 3. Repeat 1 and 2 until EOT is reached, 
6026 ; 4. Write 2 file marks (LEOT), 
6027 ; 5. Rewind, 
6028 ; 6. Read 1000 records, 
6029 ; 7. Read 1 record (should see unexpected tape mark) 
cose ; 8. Repeat 6 and 7 until LEOT. 
6032 ;# of records (N), and record size will be randomly selected. This 
6033 ssequence will permit hardware retries, if not user disabled. This 
6034 ;test will run until EOT, LEOT or fatal error is detected. All data 
tty spatterns including random data will be used in this test. 
6037 043612 BGNTST 
6038 043612 T3:: 
6039 043612 005737 003524 START3: TST UDROP ;HAVE ALL UNITS BEEN DROPPED ? 
6040 043616 001014 BNE 5$ ;GO START THE TEST 
6041 043620 PRINTF #BYPASS,L$TEST ;PRINT THE TEST BYPASSED MESSAGE 
043620 013746 002114 MOV L$TEST,-(SP) 
043624 012746 021001 MOV #BYPASS,-( SP) 
043630 012746 000002 MOV #2,-(SP) 
043634 010600 MOV SP,RO 
043636 104417 TRAP C$PNTF 
043640 062706 000006 ADD #6, SP 
oot 043644 000137 044220 JMP T3EXIT ;GET OUT IF NONE LEFT TO TEST 
6044 043650 105737 002212 5$: TSTB CLOCK ;IS THE CLOCK ENABLED 
6045 043654 001421 BEQ 03 ;NO, THEN CAN'T PRINT TIME 
6046 043656 PRINTF #TIME,<B,HOURS>,<B,MINUTE>,<B,SECOND>, 
043656 005046 CLR -(SP 
043660 153716 002215 BISB SECOND, (SP) 
043664 005046 CLR -(SP) 
043666 153716 002214 BISB MINUTE, (SP) 
043672 005046 CLR -(SP) 
043674 153716 002213 BISB HOURS , (SP) 
043700 012746 020044 MOV #TIME ,-( SP) 
012746 000004 MOV #4,-(SP) 
043710 010600 MOV SP ,RO 
043712 104417 TRAP C$PNTF 
haat 043714 062706 000012 ADD #12,SP 
6048 043720 004737 033706 GO3: JSR PC,PATCLR ;MAKE SURE WE START WITH PATTERN 1 
6049 043724 004737 033556 JSR PC,SDSTUP ;RESET THE RANDOM SEEDS 
ooee 043730 004737 033456 JSR PC, CLREOT ;CLEAR ALL EOT INDICATIONS 
6052 043734 005037 003440 CLR TSTMSK ;ALLOW NO ERRORS 
6053 043740 005737 003524 TST UDROP ;HAVE ALL UNITS BEEN DROPPED ? 
oon 043744 001525 BEQ T3EXIT ;GET OUT IF NONE LEFT TO TEST 


5 
6056 043746 012705 044230 MOV #T3REW,RS ;SET UP TO DO REWIND 


_ HARDWARE TESTS 
TEST 3: 


Complex 


ee ee ee 








K12 
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Write/Read T est 


004737 021240 
005737 003524 
001516 


012705 
004737 
005737 


001507 
023737 


001413 

012705 044244 
021240 

005737 003524 


003526 


044236 
021240 
003524 


003526 


001352 
012737 000004 
033456 
044244 
021240 
003524 


010560 
001364 
004737 033456 
044230 
021240 
003524 


033706 
033556 


044252 
021240 
003524 


003526 


004737 
012705 


001413 
012705 044260 
021240 
003524 


003526 
001352 


004737 
012705 
004737 
004737 


104432 
000040 


033456 
044230 
021240 


033632 


5$: 


003524 


003524 


010560 10$: 
15$: 


20$: 


003524 


003524 


EX3REW: 


T3EXIT: 


PC, SCHED 
UDROP 
T3EXIT 
#TS3WRT,RS 
PC, SCHED 
UDROP 
T3EXIT 
VEOT , UDROP 
10$ 
#T3WT™M,RS 
PC, SCHED 
UDROP 
T3EXIT 
ene 


#4,LO0PS 


PC,CLREOT 
#TSREW,RS 
PC, SCHED 
UDROP 

T3EXIT 

PC,PATCLR 
PC,SDSTUP 


#T3RD,RS 
T3EXIT 
UEOT , UDROP 
EX3REW 
#T3SP0,R5 
PC, SCHED 
UDROP 
T3EXIT 
VEOT , UDROP 
20$ 

PC, CLREOT 
#TSREW,RS 
PC, SCHED 
PC, SDSAVE 
TST 


CSEXxIT 
L10017-. 


;GO ISSUE TO ALL DRIVES 
sHAVE ALL _UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;SET UP_A WRITE ITERATION 

:GO DO IT ON ALL DRIVES 

sHAVE ALL_UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
;ARE ALL_UNITS AT EOT ? 

YES, WRITE ONE MORE REC AND LEOT 


;SET UP _TO WRITE A TAPE MARK 
:GO DO IT ON ALL DRIVE 

sHAVE ALL _UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
sARE ALL _ UNITS AT EOT ? 

NO, KEEP WRITING 


;SET UP_TO DO 4 TAPE MARKS 
;CLEAR THE EOT INDICATORS 
iSET UP _TO WRITE catart MARK 


0 L_ ORIVES 
sHAVE ALL_UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


SEQ 153 


;SUBTRACT 1 FROM THE TAPE MARK COUNT 
sKEEP GOING TIL THEY'RE ALL WRITTEN 


;CLEAR THE EOT INDICATORS 
1 ee at REWIND ALL DRIVES 


:GO DO 

;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
:START AT PATTERN 1 

;RESET THE RANDOM SEEDS 


;SET_UP TO READ AN ITERATION SET 
;GO ISSUE TO ALL DRIVES 

sHAVE ALL_UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
sALL UNITS AT EOT ? 

YES, GO REWIND ALL DRIVES 


sSPACE 1 OBJECT (TAPE MARK) 
GO DO IT AN ALL DRIVES 

sHAVE ALL UNITS BEEN DROPPED ? 
sGET OUT IF NONE LEFT TO TEST 
sALL UNITS AT EOT ? 

NO, KEEP READING 


s;CLEAR THE EOT INDICATORS 
;SET UP TO REWIND ALL DRIVES 
GO DO IT 


sRESET THE RANDOM SEEDS 
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6112 


Lie 


SEQ 154 


<— oe ~ ce e aeeeeo--eeeeeae< o © 


i TESTS 


EST 3: 


6114 
6115 
6116 
6117 
6118 


Complex Write/Read Test 


044230 160 
044231 000 
044232 000000 
044234 000001 
044236 020 
044237 200 
044240 000000 
044242 000000 
044244 100 
044245 

044246 

044250 000001 
044252 010 
044253 200 
044254 000000 
044256 000000 
044260 070 
044261 

044262 000001 
044264 000001 
044266 

044266 


044266 104401 


T3REW: 


T3WRT: 


T3WTM: 


T3RD: 


T3SPO: 


MACRO YOS.02 Thursday 18-Apr-85 13:37 


CSETST 


;REWIND 


s;WRITE RECORDS 


s;WRITE TAPE MARK 


sREAD RECORDS 


SPACE OBJECT (TAPE MARK) 


SEQ 155 


nr t—e t 


Nie 


yr a TESTS MACRO YOS.02 Thursday 18-Apr-85 13:37 Page 79 


TEST 4 


062706 
000137 
105737 
001421 


005037 
012705 
004737 
005737 
001453 


rrr _—--—— 


: Write Interchange Tape 


000006 
044620 


002212 


002215 
002214 
002213 
020044 
000004 
000012 


033706 


003440 


044624 
021240 
003524 


-SBTTL TEST 4: Write Interchange Tape 


‘This test will rewind the tape, 
encountered This test will keep track of the number of records and tape 
smarks written. 
;it, and the unit prevented from executing further write operations. 


T4:: 


START4: 


G04: 


BGNTST 


If a fatal error 


T3ONLY 

START4 

#BYPASS ,L$TEST 
Aas P) 

9BYP ASS, -( SP) 

#2,-(SP) 

SP ,RO 

CSPNTF 

#6, SP 

T4EXIT 

UDROP 

5$ 

#BYPASS ,L$TEST 

L$TEST,-CSP) 


@BYPASS , -(SP) 
#2,-(SP) 
SP,RO 


C$PNTF 
#6 , SP 
T4EXIT 


CLOCK 
G04 
#TIME ,<B,HOURS>,< 
-(SP) 
SECOND, (SP) 
MINUTE, (SP) 
SP ) 
HOURS , (SP) 
#TIME, Sah 


C$PNTF 
#12,SP 


PC,PATCLR 
PC,SDSTUP 
PC,CLREOT 
TSTMSK 


#T4REW,RS 
PC, SCHED 


T4EXIT 


then write until EOT or a fatel error is 


is encountered, a message will report 


;CHECK THE TEST 3 ONLY FLAG 
;BRANCH IF IT IS CLEAR 
;PRINT THE TEST BYPASSED MESSAGE 


sGET OUT 


sHAVE ALL UNITS ++ DROPPED ? 
;GO START THE TEST 
;PRINT THE TEST BYPASSED MESSAGE 


;GET OUT IF NONE LEFT TO TEST 


:IS THE CLOCK ENABLED 
;NO, THEN CAN'T PRINT TIME 
B, MINUTE> , <B,SECOND>, 


;SET UP THE RANDOM SEEDS 
;CLEAR THE EOT FLAG 
;NO ALLOWABLE ERRORS 


;POINT RS TO THE REWIND TABLE 
;GO START THE TEST 

sHAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


SEQ 156 


 wagowane TESTS MACRO YOS. oe Thursde 


eee 


T 4: Write Interchange T 


6175 044472 
6176 044476 
6177 044502 
617 4506 


012705 
004737 
005737 

1444 


00 
023737 
001413 


012705 
004737 


010000 


104401 


044632 
021240 
003524 
003526 
044640 
021240 
003524 


003526 


010560 


044624 
033456 
021240 


5$: 


003524 


003524 


010560 10$: 
15$: 


T4EXIT: 


T4REW: 


T4WRT: 


T4WTM: 








B13 
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@T4WRT,RS 
PC, SCHED 


T4EXIT 
i » UDROP 


@T4WTM,RS 
PC, SCHED 
UDROP 
T4EXIT 

oo on 


#4,L00PS 
PC,CLREOT 
#T3WTM,RS 
PC, SCHED 
UDROP 
T3EXIT 
LOOPS 

15$ 


#T4REW,RS 
PC,CLREOT 
+ Pcie 


CSEXIT 
L10020-. 


ad 
wn 


NULPAT 
0 


CSETST 


sPOINT RS TO THE TEST TABLE 
GO START THE TEST 

sHAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
sARE THEY ALL AT EOT ? 

sBRANCH IF IT IS 


sPOINT RS TO THE TEST TABLE 
3GO START THE TEST 

sHAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
sARE THEY ALL AT EOT ? 

BRANCH IF NOT 


;SET UP_TO DO 4 TAPE MARKS 


; TEST 
;SUBTRACT 1 FROM THE TAPE MARK COUNT 
sKEEP GOING TIL THEY'RE ALL WRITTEN 


;POINT RS TO THE TEST TABLE 
;GO REWIND ALL UNITS 


;REWIND 
;WRITE RECORDS 


s;WRITE TAPE MARK 


ete a ae 


SEQ 157 


C13 
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‘ TEST 5S: Read Unknown Tape 


105737 
001414 


013746 


005737 
001014 


013746 
012746 


105737 
001421 


004737 
004737 
004737 


132737 
001403 
012737 


005037 


002234 


002114 
021001 
000002 


000006 
045146 
003524 
002114 


021001 
000002 


000006 
045146 
002212 


002215 
002214 
002213 
020044 
000004 
000012 
033706 
033556 
033456 
000001 
000001 


003440 


002236 
045164 


-SBTTL TEST 5: Read Unknown Tape 


;*¢ 


SEQ 158 


iThis test will rewind a tape, then read until E0T, LEOT or fatal error 


:iS encountered. 


sand files read. If a fatal error 


the tape on the unit will be 


This test will keep track of the number of records 
is encountered, 


@ message will 
rewound, and the unit 


;CHECK THE TEST 3 ONLY FLAG 
;BRANCH IF IT IS CLEAR 
sPRINT THE TEST BYPASSED MESSAGE 


sGET OUT 
sHAVE ALL UNITS BEEN DROPPED ? 
TEST 


;GO START THE 
sPRINT THE TEST BYPASSED MESSAGE 


;GET OUT IF NONE LEFT TO TEST 


;IS THE CLOCK ENABLED 
THEN CAN'T PRINT TIME 


G05 ;NO, 
OTINE . <B. HOURS>, <B. MINUTE>, <B, SECOND>, 


sMAKE SURE WE START WITH PATTERN 1 
;SET UP_THE RANDOM SEEDS 

;CLEAR THE EOT FLAG 

sARE WE DUMPING ALL RECORDS? 


;NO - BRANC 
;CHANGE ITER COUN; TO 1 


sreport it, 

sprevented from executing further read operations. 
BGNTST 

TS:: 
TSTB T3ONLY 
BEQ STARTS 
PRINTF #BYPASS,L$TEST 
MOV L$TEST,-(CSP) 
MOV #BYPASS, -( SP) 
MOV #2,-(SP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #6, SP 

- JMP TSEXIT 

STARTS: TST UDROP 
BNE $ 
PRINTF #BYPASS,L$TEST 
MOV L$TEST,-CSP) 
MOV #BYPASS, -(SP) 
MOV #2,-(SP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #6, SP 
JMP TSEXIT 

S$: TSTB CLOCK 

EQ 0 

PRINTF 
CLR - 
BISB SECOND, (SP) 
CLR -(SP 
BISB MINUTE, (SP) 
CLR -(SP) 
BISB HOURS, (SP) 
MOV #TIME, -(SP) 
MOV SP ,RO 
TRAP CS$PNTF 
ADD #12,SP 

GOS: JSR PC,PATCLR 
JSR PC,SDSTUP 
JSR PC,CLREOT 
BITB #BITO,OMPBUF 
BEQ 
MOV #1,TSRD+4 

1$: CLR TSTMSK 


sNO ALLOWABLE ERRORS 


a | 


TL se 


"HARDWARE TESTS MACRO _YOS.02 Thur 
‘TEST 5: 


Read Unknown Tape 


045052 012705 045152 
045056 004737 021240 
045062 005737 003524 
. 045066 001427 


045070 012737 000012 
045076 012705 045160 
045102 004737 021240 
045106 005737 003524 


64 045114 023737 003526 


045124 004737 033456 
045130 012705 045152 


003440 


003524 


021240 
045140 012737 001751 045164 


045146 104432 
045150 000016 


045152 160 


000 
045154 000000 
045156 000001 


045160 010 

200 
045162 010000 
045164 001751 


045166 
045166 
045166 104401 





10$: JSR 
TSEXIT: tay 3 


TSREW: ‘oe 


TSRD: ‘evre 


“D113 
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Se ered RS 
ane HED 


ROP 
TSEXIT 
#TMB!RDTB, TSTMSK 
#TSRD,RS 


U 
TSEXIT 
—— 


PC, CLREOT 
#TSREW,RS 

PC, SCHED 

+ aati 
CSEXIT 
L10021-. 


REW 
NULPAT 


-4 
w 


CSETST 


ee 


SEQ 159 


sPOINT RS TO THE REWIND TABLE 
:GO START THE TEST 

sHAVE ALL_UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;TAPE MARKS AND TRUNC. war OK 
;POINT RS TO THE TEST TABLE 
;GO START THE TEST 


;HAVE ALL_UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 
sARE THEY ALL AT EOT ? 

;BRANCH IF THEY ARE NOT 


;POINT RS TO THE REWIND TABLE 
;GO REWIND ALL UNITS 
sRESTORE ITER COUNT 


;REWINC 


;READ RECORDS 


, HARDWARE TESTS MACRO YOS.02 Thurs 
TEST Start/Stop Write/Read Test 


6: 


6304 
6305 


6306 
0 


105737 
001414 


013746 


000137 


005737 
001014 


013746 


105737 
001421 


005046 


104417 
062706 


004737 


— ee ee 


002234 


002114 
021001 
000002 


000006 
045576 
003524 
002114 


021001 
000002 


000006 
045576 
002212 


002215 
002214 
002213 
020044 
000004 
000012 


033706 





E13 
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-SBTTL TEST 6: Start/Stop Write/Read Test 


s++ 
iThis test rewinds the tape, and executes the following sequence: 


Write 1300 records one at a time, 
Write 2 file marks (LEOT), 

Rewind, 

Read 1300 records one at a time, 
Skip to LEOT. 

Rewind, 


OUPWHe 


This sequence will permit hardware retries, if not user disabled. 
sThis test will run until exhaustion of the command count or fatal error 
sis detected. All data patterns including random data will be used 


;in this test. 
BGNTST 
Té:: 
TSTB T3ONLY 
BEQ START6 
PRINTF #BYPASS,L$TEST 
MOV L$TEST,-(CSP) 


MOV #BYPASS, -( SP) 
MOV +5 a 


;CHECK THE TEST 3 ONLY FLAG 
;BRANCH IF IT IS CLEAR 


MOV 

TRAP C$PNTF 

ADD #6 , SP 

JMP T6EXIT sGET OUT 


START6: TST iad 


BNE 5 

PRINTF #BYPASS,L$TEST 
MOV L$TEST,-(SP) 
MOV tah 3 ati 


3GO START THE TEST 


MOV #2, - 

MOV SP, 

TRAP C$PNTF 

ADD #6, SP 

JMP T6EXIT sGET OUT IF NONE LEFT TO TEST 
S$: TSTB CLOCK #1S THE CLOCK ENABLED 


BEQ G06 NO, THEN CAN‘T PRINT TIME 
yaad let »<B,HOURS>,<B, MINUTE>, <B,SECOND>, 


ty ee. » (SP) 
BISB MINUTE , (SP) 
C P) 
BISB HOURS, (SP) 
MOV #TIME, -(SP) 
SP ,RO 
TRAP C$PNTF 
ADD #12,SP 
G06: JSR PC,PATCLR 


;PRINT THE TEST BYPASSED MESSAGE 


sHAVE ALL UNITS BEEN DROPPED ? 
sPRINT THE TEST BYPASSED MESSAGE 


SEQ 160 


sMAKE SURE WE START WITH PATTERN 1 


LO Sessa a 


ee ee! 


ed (es ee oe 


F1i3 
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TEST 6: Start/Stop Write/Read Test 


6319 045340 
045344 


oO 
WwW 
n°) 
So 


004737 
004737 


005037 
005737 
001506 


012705 
004737 
005737 
001477 
012737 


012705 


001366 


012705 
004737 
005737 
001453 


012705 


001444 


004737 
004737 
012737 


012705 
004737 
005737 
001426 
005337 
001366 


052737 


001406 
004737 
012705 
004737 
004737 


104432 
000040 


033556 
033456 


003440 
003524 


045606 
021240 
003524 


002424 


045614 
021240 
003524 


003404 


045622 
021240 
003524 


045606 
021240 
003524 


033706 
033556 
002424 


045630 
021240 
003524 


003404 


000001 
045636 
021240 
000001 
003524 


033456 
045606 
021240 


033632 


JSR PC, SDSTUP 
JSR PC,CLREOT 
CLR TSTMSK 
TST UDROP 
BEQ T6EXIT 
MOV #T6REW,RS 
JSR PC, SCHED 
TST UDROP 
BEQ T6EXIT 
003404 MOV #1300. , COUNT 
S$: MOV #T6WRT RS 
JSR PC, SCHED 
TST UDROP 
BEQ T6EXIT 
DEC COUNT 
BNE 5$ 
MOV #T6WTM,RS 
JSR PC, SCHED 
TST UDROP 
BEQ T6EXIT 
MOV #T6REW,RS 
JSR PC, SCHED 
TST UDROP 
BEQ T6EXIT 
JSR PC,PATCLR 
JSR PC,SDSTUP 
003404 MOV #1300. , COUNT 
10$: MOV #T6RD,RS 
JSR PC, SCHED 
TST UDROP 
BEQ T6EXIT 
DEC COUNT 
BNE 10$ 
003440 BIS #LEDB , TSTMSK 
MOV #T6SKD,RS 
JSR PC, SCHED 
003440 BIC #LEDB, TSTMSK 
TST UDROP 
BEQ T6EXIT 
JSR PC,CLREOT 
MOV #T6REW,RS 
JSR PC, SCHED 


T6EXIT: JSR PC, SDSAVE 
E TST 


TRAP CSEXIT 
-WORD L10022-. 


A ce ee ne a Se 


SEQ 161 


;RESET THE RANDOM SEEDS 
;CLEAR ALL EOT INDICATIONS 


;ALLOW NO ERRORS 
;HAVE ALL_UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;SET UP TO DO REWIND 

;G0 ISSUE TO ALL DRIVES 

;HAVE ALL UNITS BEEN On teat ? 
;GET OUT IF NONE LEFT TO TEST 

;STEP UP THE WRITE ITERATION COUNT 


;SET UP A WRITE ITERATION 

;$0 DO IT ON ALL DRIVES 

s;HAVE ALL_UNITS BEEN DROPPED ? 

;GET OUT IF NONE LEFT TO TEST 
;SUBTRACT 1 FROM THE ITERATION COUNT 
;MORE COMMANDS TO DO, KEEP GOING 


;SET UP_TO WRITE A TAPE MARK 
;G0 DO IT ON ALL DRIVES 

;HAVE ALL_UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;SET UP_TO REWIND ALL DRIVES 
GO DO IT 


;HAVE ALL UNITS BEEN DROPPED ? 
;GET OUT IF NONE LEFT TO TEST 


;START AT PATTERN 1 
;RESET THE RANDOM SEEDS 
;STEP UP THE WRITE ITERATION COUNT 


;SET UP_TO READ AN ITERATION SET 

;G0 DO IT ON ALL DRIVES 

sHAVE ALL_UNITS BEEN DROPPED ? 

;GET OUT IF NONE LEFT TO TEST 
;SUBTRACT 1 FROM THE ITERATION COUNT 
;MORE COMMANDS TO DO, KEEP GOING 


;SET UP TO ALLOW LEOT DETECTED 
: SKIP TO LEOT 

GO DO IT AN ALL DRIVES 
;DISALLOW LEOT DETECTED 

sHAVE ALL_UNITS BEEN DROPPED ? 
GET OUT IF NONE LEFT TO TEST 


;CLEAR THE EOT INDICATORS 
me) Te REWIND ALL DRIVES 


;RESET THE RANDOM SEEDS 
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ee 


Start/Stop Write/Read Test 


045606 


045644 
045644 
045644 


000000 


020000 


000000 


020000 
000001 


062 
060 
000001 
000001 


104401 





T6REW: .BYTE 
B 
T6WRT: .BYTE 
B 
T6WTM: .BYTE 
B 
T6RD: gp ah 


T6SKD: gh | 


G13 
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REW 
NULPAT 


CSETST 


SEQ 162 


;REWIND 


;WRITE RECORDS 


;WRITE TAPE MARK 


sREAD RECORDS 


;SKIP TO LEOT 


H13 
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6434 
6435 


3 
045646 


045646 
Satess 


046034 
046040 


105737 
001414 


013746 


000137 


005737 
001014 


013746 


000137 


105737 
001421 


005046 


052737 


004737 
004737 


002234 


002114 
021001 
000002 


000006 
046222 
003524 
002114 


021001 
000002 


000006 
046222 
002212 


002215 
002214 


002213 
020044 
000004 


000012 


003410 
002232 
003440 
000001 


033556 
033706 


003440 


-SBTTL TEST 7: Conversation Test 


p++ 


;Conversation mode will run with or without error reports. 
from a list of commands, a sequence which can be used to 
Between commands, the user can_ specif 


;can select, 
;emulate a known failure mode. 
;unique delays, 
;tape command with 


ranging from 10 to 250 
integer values, 


SEQ 163 


The user 


The user can follow eac 
first indicating the 


ms. 
the 


sbyte/record/file count and the second indicating the # of repetitions 


necessary for that command. 


BGNTST 
T7:: 
TSTB T30NLY 
BEQ START7 
PRINTF #BYPASS,L$TEST 
MOV L$TEST,-(SP) 
MOV #BYPASS,-(SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP CS$PNTF 
ADD #6, SP 
JMP T7EXIT 
START7: TST UDROP 
BNE 5$ 
PRINTF #BYPASS,L$TEST 
MOV L$TEST,-(CSP) 
MOV #BYPASS, -(SP) 
MOV #2, -(SP) 
MOV SP,R 
TRAP C$PNTF 
ADD #6, SP 
JMP T7EXIT 
5$: TSTB CLOCK 
EQ 
PRINTF 
LR - 
BISB SECOND, (SP) 
LR ~( SP) 
BISB MINUTE , (SP) 
CLR -(SP) 
BISB HOURS, (SP) 
MOV #TIME ,-CSP) 
MOV #4,-(SP) 
MOV SP,RO 
TRAP CSPNTF 
ADD #12,SP 
G07: CLR BRCNT 
MOV #T7TBL,RS 
CLR TSTMSK 
BIS #LEDB , TSTMSK 
10$: JSR PC,SDSTUP 
JSR PC,PATCLR 


;CHECK THE TEST 3 ONLY FLAG 
;BRANCH IF IT IS CLEAR 
;PRINT THE TEST BYPASSED MESSAGE 


;GET OUT 
sHAVE ALL ss a DROPPED ? 


;GO START THE TE 
sPRINT THE TEST BYPASSED MESSAGE 


;GET OUT IF NONE LEFT TO TEST 


;IS THE CLOCK ENABLED 
THEN CAN'T PRINT TIME 


G07 ;NO, 
Srey eee. <S MRME>, <B.SECOD>, 


; CLEAR THE BRANCH COUNTER 
sPOINT RS TO TEST 7 TABLE 

NO ALLOWABLE ERRORS 

;SET UP TO ALLOW LEOT DETECTED 


;SET UP THE RANDOM SEEDS 
;USE THE SAME PATTERN 


A ce 
St eee OS 





113 
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Conversation Test 
004737 


016501 
013702 


000747 
122765 


016537 
005337 


012705 


062705 
005301 
001374 


004737 
005737 
001305 
004737 


104432 
000002 


046204 
046206 


046230 


046232 
046232 
046232 


046234 


104401 


033456 
000006 
177777 
000310 
000002 


002116 


000300 
000001 


000001 
000004 


003410 
000001 


000002 
002232 


000006 


021240 
003524 


033632 


000000 
000000 


000000 
003516 


003516 
003410 


003516 


20$: 
30$: 


40$: 


50$: 


60$: 


70$: 


80$: 


T7EXIT: 


L10023: 


-EVEN 
ENDTST 
TRAP 
ENDMOD 


PC ,CLREOT 
#TSTSTP,RS 
#-1,CMDCR5) 
T7EXIT 
oo 
ITMCNTC(RS),R1 
L$DLY,R2 

R2 

30$ 

R1 

20$ 

10$ 

#300, CMDCRS) 
80$ 

#T7BRFL ,PCFLAG 
50 


#T7BRFL ,PCFLAG 
ITRCNTC(RS),BRCNT 


BRCNT 

60$ 
#T7BRFL,PCFLAG 
10$ 


ITMCNTC(RS),R1 
#T7TBL,RS 


#TSTSTP,RS 
Ri 

70$ 

PC, SCHED 
UDROP 

10$ 

PC, SDSAVE 
TST 


CSEXIT 
L10023-. 


CSETST 


SEQ 164 


;CLEAR THE EOT FLAG 

;MOVE RS TO THE NEXT TEST TABLE 
;IS_IT AN END OF SEQUENCE COMMAND ? 
;GET OUT IF IT IS 

IS IT A DELAY COMMAND ? 

;NO_KEEP GOING 

;PUT THE DELAY VARIABLE IN Ri 


;GET THE PROGRAM DELAY VARIABLE 


;DECREMENT R2 
sKEEP GOING TILL ZERO 
;DECREMENT R1 


sRESET R2 AND GO TILL Ri IS ZERO 
;GET THE NEXT COMMAND 


#1S IT A BRANCH COMMAND ? 
GO ON 


; HAVE WE ALREADY LOAD THE BRANCH COUNT ? 
; YES, DON’T OVER WRITE IT 

REMEMBER THAT YOUR IN A LOOP 

ITERATION COUNT TO BRANCH COUNT 


; HAVE WE BRANCHED THE REQUIRED TIMES ? 
; NO, CONTINUE LOOPING 

; CLEAR THE BRANCH FLAG 

;_ GET NEXT COMMAND 

;PUT THE COMMAND NUMBER IN R1 

;POINT RS TO TEST 7 TABLE 


sSTART STEPPING RS TO THE COMMAND 
sIS THIS THE RIGHT PLACE ? 
;NO, KEEP GOING 


:GO START THE TEST 

sHAVE ALL UNITS BEEN DROPPED ? 
sNO, KEEP TESTING 

;SAVE THE RANDOM SEEDS 


a ee 


J13 
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7: Conversation Test 


6497 
6498 
6526 
6527 046234 
6528 
i 


6538 046234 
046234 
046236 


6541 046246 


2 
6543 046260 
046260 


6546 046262 
oisa 046277 
6549 046322 

046322 


000032 


000031 
046262 
160002 
177564 


001032 
046277 
000777 
000000 
000251 


021004 


124 
124 


113 
057 


. TITLE PARAMETER CODING 
.SBTTL HARDWARE PARAMETER CODING SECTION 

BGNMOD 
+ THE yr PARAMETER CODING SECTION tae MACROS 
; THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. TH 


HE 
; MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
; WITH THE OPERATOR. 


BGNHRD 
.WORD L10024-L$HARD/2 
L$HARD:: 


GPRMA TKIPAD,0,0,160002,177564, YES 
CODE 


. IM 
GPRMD = TKUNT,2,0,777,0,251, YES 
.WORD T$CODE 
-WORD = TKUNT 
777 


“WORD T$LOLIM 
“WORD T$HILIM 


EXIT HRD 
“WORD TSCODE 
111 TKIPAD: .ASCIZ ?TKIP ADDRESS? 
115 TKUNT : "ASCIZ ?T/MSCP UNIT NUMBER? 
; ENDHRD 


-EVEN 
L10024: 


Ee LT = 


SEQ 165 


ee ee o> 


A a a 


| PARAMETER CODING MACRO Y0S.02 
| SOFTWARE PARAMETER CODING SECTION 


| 
| 
| 
| 6554 


1 
6562 046322 
001107 


000130 
047210 
000001 


013044 


000052 
047241 
177400 
000000 
04 000030 
6567 046346 
0 001052 


046350 047323 
000377 
000000 
000074 
6568 
6569 046360 

002130 


046360 

046362 047370 

0. 000400 
6570 046366 


012044 
6571 046370 
04 003130 


6572 046376 

04 003130 
047471 
000400 


004130 
047533 
000001 


04 
6573 perens 


6574 

6575 046412 

004130 
047562 
000400 


K13 
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-SBTTL SOFTWARE PARAMETER CODING SECTION 


: THE SOFTWARE PARAMETER CODING SECTION 1 par MACROS 


; THAT ARE USED BY THE SUPERVISOR TO BUILD 


P-TABLES. 


THE 


; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
; MACROS ALLOW i aaa TO ESTABLISH COMMUNICATIONS 


L$SOFT:: 


S$: 


10$: 


; WITH THE OPERATO 


BGNSF T 
-WORD L10025-L$SOFT/2 


ECLK,0,1,YES 
T$CODE 


1 

5$ 

T$CODE 

voted etn a0. 8.a8. , VES 


LIM 
MINT,2,D0,000377,0,60.,YES 
T$CODE 


000377 

T$LOLIM 
T$HILIM 
CTPA,4,400, YES 
T$CODE 

400 

10$ 

T$CODE 
SERR,6,1, YES 
T$CODE 

1 
SERC,6,400, YES 
T$CODE 

400 
PADD,10,1, YES 
T$CODE 


PRPA, 10,400, YES 
T$CODE 


400 


SEQ 166 


! 
! 


PARAMETER CODING 
SOFTWARE PARAMETER CODING SECTION 


6576 
6577 


6578 
6579 


6580 


6581 
04 


04 
6582 


6583 


6584 
6585 


6586 
6587 


04 
6588 


6589 


6590 


6591 


046420 
046420 024044 


005130 
046424 047615 
046426 000001 
046430 004024 


046432 005130 
047660 
0004 


046454 007130 
046456 050026 
000001 


046462 007130 
046464 050071 
046466 000400 


046470 010130 
046472 050134 
046474 000001 


6476 023044 


500 
6500 010032 
046502 050163 


046512 011130 
046514 050201 
046516 000001 


046520 011130 
046522 050222 
000400 


046526 012130 
046530 050262 
046532 000001 


046534 012130 
046536 050326 
046540 000400 
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15$: 


T$CODE 
SOER, 12,1, YES 
T$CODE 


T$CODE 

SRER, 12,400, YES 
T$CODE 

SRER 

400 
CLMD,14,1,YES 
T$CODE 

— 

MOTB, 14,400, YES 
T$CODE 

MOTB 

400 

NOCL ,16,1,YES 
T$CODE 


1 
POMP, 16,400, YES 
T$CODE 


400 
TSPA,20,1, YES 
T$CODE 


20$ 

T$CODE 

PATE ,20,0,177400,0,7,YES 
T$CODE 


T$HILIM 
T30N, 22,1, YES 
T$CODE 


oo 
TSCP 22,400, YES 
T$CODE 


400 

BOMP ,24,1,YES 
T$CODE 

2 

CHGF ,24,400, YES 
T$CODE 


CHGF 
400 


SEQ 167 


LE te a 
a ee 


PARAMETER CODI 
SOFTWARE PARAMETER CODING SECTION 


6592 


6593 
04 


6594 


6595 
04 


6596 


6597 


6598 
04 


6599 
6600 


04 
6601 


6602 


6603 


6604 
6605 


046542 
046542 


046666 
046666 


ee ee 


NG 


002024 
076004 
013032 
050470 
000377 
000000 
000377 
013032 
050362 
177400 
000007 
014052 
050401 
177777 
000000 
020000 
015052 
050443 


177777 
000000 
065000 


016032 


021032 


MACRO YOS.02 


M13 
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20$: 


255: 


25$ 

T$CODE 
SFTEX1 
T$CODE 


CMD1,26,0,000377,0,377, YES 
T$CODE 


DPAT. 26, 0,177400,0,7, YES 
T$CODE 


177400 
T$LOLIM 
T$HILIM 
Fecaee tee tT tT OAM . VES 


T$HILIM 
ITER, 32,0,177777,0,65000, YES 
T$CODE 


ITER 
177777 
T$LOLIM 
T$HILIM 


CMD2,34,0,000377,0,377, YES 
T$CODE 


CMD2 

000377 

T$LOLIM 

T$HILIM 

DPAT ,34,0,177400,0,7, YES 
TSCODE 


LIM 
ITER. 40,0,177777,0,65000, YES 
TSCODE 


ITER 
177777 
T$LOLIM 
T$HILIM 


CMD3,42,0,000377,0,377, YES 
T$CODE 


SEQ 168 


N13 
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SOFTWARE PARAMETER CODING SECTION 
046670 050504 -WORD CMD3 
046672 000377 -WORD 000377 
046674 000000 -WORD TS$LOLIM 
046676 000377 -WORD TS$HILIM 
6606 046700 GPRMD DPAT,42,0,177400,0,7,YES 
046700 021032 -WORD TSCODE 
046702 050362 . WORD A 
04 177400 -WORD 177400 
046706 000000 -WORD TS$LOLIM 
046710 000007 .WORD T$HILIM 
6607 046712 GPRMD ICNT,44,0,177777,0,MAXBUF , YES 
046712 022052 -WORD TSCODE 
046714 050401 -WORD ICNT 
046716 177777 -WORD 177777 
046720 000000 -WORD T$LOLIM 
046722 020000 -WORD T$HILIM 
6608 046724 GPRMD ITER,46,0,177777,0,65000, YES 
046724 023052 -WORD TSCODE 
046726 050443 -WORD ITER 
046730 177777 -WORD 177777 
046732 000000 -WORD TS$LOLIM 
046734 065000 -WORD T$HILIM 
6609 046736 XFER CONT1 
6610 046736 002004 -WORD TSCODE 
6611 046740 SFTEX1: XFER SFTEX2 
ss12 046740 076004 -WORD TS$CODE 
6613 046742 CONT1: GPRMD (CMD4,50,0,000377,0,377,YES 
046742 024032 -WORD TS$CODE 
046744 050512 - WORD 
046746 000377 -WORD 000377 
046750 000000 WORD T$LOLIM 
046752 000377 .WORD T$HILIM 
6614 046754 GPRMD DPAT,50,0,177400,0,7,YES 
046754 024032 -WORD TS$CODE 
046756 050362 WORD 
046760 177400 WORD 177400 
046762 000000 WORD T$LOLIM 
046764 000007 .WORD T$HILIM 
6615 046766 GPRMD ICNT,52,0,177777,0,MAXBUF , YES 
046766 025052 -WORD TS$CODE 
046770 050401 -WORD ICNT - 
046772 177777 -WORD 177777 
046774 000000 -WORD T$LOLIM 
046776 020000 .WORD T$HILIM 
6616 047000 GPRMD ITER,54,0,177777,0,65000, YES 
047000 026052 -WORD TSCODE 
047002 050443 - WORD 
177777 -WORD 177777 
047006 000000 -WORD  T$LOLIM 
wv" 065000 -WORD TS$HILIM 
6618 047012 GPRMD CMDS,56,0,000377,0,377, YES 
047012 027032 -WORD TSCODE 


* 047014 050520 .WORD CMDS 
000377 .WORD 000377 





a 


SEQ 169 


B14 
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' SOFTWARE PARAMETER CODING SECTION 


047020 000000 -WORD TS$LOLIM 
047022 000377 -WORD TS$HILIM 
6619 047024 GPRMD Toral 56,0,177400,0,7, YES 
047024 027032 .WORD TSCODE 
047026 050362 - WORD AT 
047030 177400 -WORD 177400 
047032 000000 -WORD TSLOLIM 
047034 000007 . WORD HILI 
6620 047036 GPRMD ICNT,60,0,177777,0,MAXBUF , YES 
047036 030052 . WORD $CO 
047040 050401 -WORD  ICNT 
047042 177777 «WORD 177777 
047044 -WORD  TS$LOLIM 
047046 020000 -WORD  TS$HILIM 
6621 047050 GPRMD a ieee 62,0,177777,0,65000, YES 
047050 031052 -WORD TSCODE 
047052 050443 -WORD ITER 
047054 177777 WORD 177777 
047056 -WORD TS$LOLIM 
ogee 047060 065000 -WORD  T$HILIM 
6623 047062 GPRMD CMD6,64,0,000377,0,377, YES 
047062 032032 -WORD TSCODE 
047064 050526 -WORD CMD6 
047066 000377 WORD 000377 
047070 000000 WORD T$LOLIM 
047072 000377 -WORD TS$HILIM 
6624 047074 GPRMD DPAT,64,0,177400,0,7,YES 
047074 032032 - WORD CODE 
047076 050362 . WORD AT 
047100 177400 -WORD 177400 
047102 000000 -WORD TS$LOLIM 
047104 000007 -WORD T$HILIM 
6625 047106 GPRMD pf 66,0,177777,0,MAXBUF , YES 
047106 033052 -WORD TSCODE 
0471190 050401 -WORD ICNT 
047112 177777 WORD 177777 
047114 000000 WORD TS$LOLIM 
047116 020000 -WORD T$HILIM 
6626 047120 GPRMD ITER,70,0,177777,0,65000, YES 
047120 034052 WORD TS$CODE 
047122 050443 WORD ER 
047124 177777 -WORD 177777 
047126 -WORD TS$LOLIM 
047130 065000 -WORD T$HILIM 
6627 047132 XFER CONT2 
— 047132 002004 -WORD TSCODE 
6629 047134 SFTEX2: XFER SFTEX3 
ween 047134 025004 WORD TSCODE 
6631 047136 CONT2: GPRMD (CMD7,72,0,000377,0,377, YES 
047136 035032 WORD TSCODE 
047140 050534 - WORD 
| 047142 000377 WORD 000377 
| 047144 000000 WORD TS$LOLIM 
047146 000377 WORD TS$HILIM 


SEQ 170 








C14 
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| SOFTWARE PARAMETER CODING SECTION 


| 6632 047150 GPRMD ODPAT,72,0,177400,0,7, YES 
047150 035032 .WORD TSCODE 
047152 050362 .WORD DPAT 
047154 177400 .WORD 177400 
| 047156 000000 .WORD TS$LOLIM 
047160 000007 .WORD TS$HILIM 
6633 047162 GPRMD ICNT,74,0,177777,0,MAXBUF , YES 
047162 036052 WORD  TSCODE 
047164 050401 WORD 
047166 177777 WORD 177777 
047170 000000 WORD TS$LOLIM 
047172 020000 .WORD TS$HILIM 
6634 047174 GPRMD ITER, 76,0,177777,0,65000, YES 
047174 037052 WORD T$CODE 
047176 050443 WORD ITER 
047200 177777 WORD 177777 
047202 000000 WORD TS$LOLIM 
=e 047204 065000 WORD TS$HILIM 
6636 047206 SFTEX3: XFER SFTEX4 
nm 047206 070004 WORD TS$CODE 
6638 047210 105 116 101 ECLK: ASCIZ /ENABLE TIME OF DAY CLOCK/ 
6639 047241 040 111 116 HOUR: ASCIZ / INPUT HOUR IN 24 HOUR FORMAT (OMIT LEADING ZERO)/ 
6640 047323 040 111 116 MINT: ASCIZ / INPUT MINUTES (OMIT LEADING ZERO)/ 
6641 EVEN 
6642 
6643 047366 SFTEX4: XFER  SFTEXS 
nies 047366 075004 WORD TS$CODE 
6645 047370 103 110 101 CTPA ASCIZ /CHANGE CONTROLLER PARAMETERS/ 
6646 047425 040 105 116 SERR ASCIZ / ENABLE CONTROLLER ERROR CORRECTION/ 
6647 047471 040 105 116 SERC: ASCIZ / ENABLE CONTROLLER ERROR RECOVERY/ 
6648 047533 040 105 116 PADD: ASCIZ / ENABLE PAD BLOCKING/ 
6649 EVEN 
6650 
6651 047560 SFTEXS: XFER SFTEX6 
a: 047560 102004 .WORD TSCODE 
6653 047562 103 110 101 PRPA: ASCIZ /CHANGE PRINTING PARAMETERS/ 
6654 047615 040 105 116 SOER: ASCIZ / ENABLE SOFT ERROR REPORT PRINTING/ 
6655 047660 040 040 105 SRER: ASCIZ / ENABLE READ SOFT ERRORS ONLY/ 
6656 047717 040 105 116 CLMD: ASCIZ / ENABLE CLEAR MEDIA TABLE EVERY PASS/ 
6657 EVEN 
6658 
6659 047764 SFTEX6: XFER SF TEX7 
iad 047764 063004 WORD TS$CODE 
6661 047766 040 105 116 MOTB ASCIZ / ENABLE PRINTING OF MEDIA TABLE/ 
6662 050026 040 105 116 NOCL ASCIZ / ENABLE CLEAR STATS ON FATAL ERROR/ 
6663 050071 040 105 116 PDMP ASCiZ / ENABLE VARIABLES DUMP ON ERROR/ 
6665 
6666 050132 SFTEX7: XFER  SFTEX8 
| se 050132 113004 .WORD  TSCODE 
6668 050134 103 110 101 TSPA: .ASCIZ /CHANGE TEST PARAMETERS/ 


_—_— 2 — 


PARAMETER CODING 


| SOFTWARE PARAMETER CODING SECTION 


6669 050163 


050326 
050360 
050360 
050362 


050401 
050443 


050466 
050466 


050534 
050542 
050542 
050542 


050542 
050542 
050552 
070552 
110552 


115612 


115732 
115732 


115744 


115746 
000004 


000000 
000002 


174500 
000000 
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SFTEXT: 


L10025: 


RDBUF : : 
WRTIBUF : : 


MEDIAS: : 
PATCH:: 


LASTAD 


L$LAST:: 


L10026: 
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ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
ASCIZ 
EVEN 
XFER SFTEX9 
WORD TSCODE 
-ASCIZ / DATA 
-ASCIZ / 
-ASCIZ / 
EVEN 
XFER SFTEXT 
WORD TS$CODE 
ASCIZ "CMD/1" 
ASCIZ "CMD/2" 
ASCIZ "CMD/3" 
ASCIZ “CMD/4" 
ASCIZ "CMD/S" 
ASCIZ "CMD/6" 
ASCIZ “CMD/7" 
EVEN 
ENDSFT 
-EVEN 
ENDMOD 
-BLKW 
.BLKW 
-BLKW 
.BLKW 
-BLKW 


-EVEN 

-WORD TSFREE 
-WORD T$SIZE 
BGNSETUP 
BGNPTAB 
-WORD 0 

-WORD L10030- 
- WORD 

. WORD 





D1i4 


SEQ 172 


/ DATA_PATTERN/ 

/ RUN TEST 3 ONLY/ 

/ ENABLE DATA COMPARES IN TEST 5/ 

/ ENABLE PRINT READ BUFFER IN TEST 5/ 
/ CHANGE COMMAND SEQUENCE/ 


PATTERN/ 


ITEM COUNT (BYTE ,RECORD, OBJECT )/ 
ITERATION COUNT/ 


4 

10000 ;READ BUFFER 

10000 ;WRITE BUFFER 

1296. sMEDIA STATISTICS TABLE 
50 sPATCH SPACE 

1 sNUMBER OF P-TABLES 
-/2-1 

174500 ;IP ADDRESS 

0 ;UNIT NUMBER 





} 


fe. 
| 


- ee 


PARAMETER CODING 
| SOFTWARE PARAMETER CODING SECTION 


6721 115746 
115746 


gree 115746 
000001 
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L10030 
. END 


ENDPTAB 


* ENDSETUP 


E14 
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SEQ 173 


} 
‘ 
oe ee ee eee 


TT TE TL TT EE TET ETE - --s-eest ssn ste ee-meme se 


- ——_— ll ——— ce ce a 


F1i4 





| PARAMETER CODING MACRO YOS.02 Thursday 18-Apr-85 13:37 Page 85-8 SEQ 174 
| Symbol table 
ABO = 000200 G BYPASS 021001 G CMR = 000031 G C$GETW= 000027 DRBSTP= 000104 G 
ABOER 011525 BYTADD 003446 G CMSTSV 010550 G C$GMAN= 000043 DRERFL= 000010 G 
B 025346 BYTCNT 022124 G CNTEL 013145 C$GPHR= 000042 DRINUS 003350 G 
ABORT = 000004 G BYTES 003416 G CNTER 011674 C$GPRI= 000040 = 000010 G 
ABO 010662 G CDRECV 023710 G CNTERL 011172 C$INIT= 000011 DROPIT= 000400 G 
ACC = 000040 G CORENO 010312 G CNTFLG 010562 G C$INLP= 000020 DROPPD= 000104 G 
ACCESS 024522 COREN1 010376 G CNTHI 010554 G C$MANI= 000050 DROPUN 42 G 
ACR = 000041 G CDREN2 010462 G CNTLEL 013172 $MAP = 000102 DRSPBO 004032 G 
ADJUST 027142 CDOREN3S 010546 G CNTLER 011132 C$MEM = 000031 DRSPB1 005072 G 
ADR = 000020 G CDOSRGO 010272 G CNTT 010762 G C$MMU = 000103 DRSPB2 006132 G 
ALLPAT= 000200 G CDOSRG1 010356 G CNUSAV= 000014 G C$MSG = 000023 DRSPB3 007172 G 
ASSEMB= CDSRG2 010442 G COLSAV= 000016 G CS$OPNR= 000034 ORVEL 013125 
AVALAB 025026 CDOSRG3 010526 G COMEXI 025700 CSOPNW= 000104 ORVER 011715 
AVB = 000001 G CF .ATN= 000200 G CONID = 177777 G C$PNTB= 000014 DRVERL 011162 
AVL = 000130 G CF.MSC= 000 G CONTPA 002217 G C$PNTF= 000017 DRV 010772 G 
AVLB = 000040 G CF .QTH= 000040 G CONTRV 020532 G C$PNTS= 000016 DSPSTP= 000004 G 
AVLER 011556 CF.THS= 000020 G CONT1 046742 C$PNTX= 000015 DSRNGO 010226 G 
AVLT 010702 G F 050326 CONT2 047136 C$PUTB= 000072 DSRNG1 010312 & 
AVU = 000134 G CHGFLG 002237 G CORDMP 033734 C$PUTW= 000073 DSRNG2 010376 G 
BADEL 013233 CHODAT 024502 COR 012627 $QI0 = 000377 DSRNG3 010462 G 
BADER 011643 L 047717 CORERL 011232 C$RDBU= 000007 013103 
BADERL 011142 CLOCK 002212 G COUNT 003404 G C$REFG= 000047 DTCPER= G 
BDMP 050262 CLREOT 033456 G COUNTS 020202 G C$REL = 000077 DUMP 020347 G 
BITO = 000001 G CLRMED 002226 G CPRIEX 014350 C$RESE= 000033 DUMPKT 003344 G 
BITOO = 000001 G CLSDRV 023444 G D = 177776G C$REVI= 000004 DUMP1 020430 G 
BITO1 = 000002 G = 000000 G CROLIM 010571 G C$RFLA= 000021 DUMP2 020471 G 
BITO2 = 000004 G CMDASC 011322 G A 047370 C$RPT = 000025 EC 013001 
BITO3 = 000010 G CMDBF1 003566 G AU = 000052 C$SEFG= 000046 ECBERL 011272 
BITO4 = 000020 G CMDBF2 003636 G C$AUTO= 000061 C$SPRI= 000041 ECCBC = 000036 G 
BITOS = 000040 G CMDBF3 003706 G C$BRK = 000022 C$SVEC= 000037 ECCDC = 000026 G 
BITO6 = 000100 G CMDBF4 003756 G C$BSEG= 000004 C$TOME= 000076 ECCFLG= 000100 G 
BITO7 = 000200 G CMDBLD 022002 G BSUB= 000002 DATAEL 031424 CCTC = 000030 G 
BITO8 = 000400 G CMDCNT 003400 G C$CLCK= 000062 DATBL 003472 G L 012663 
BITO9 = 001000 G CMDER 011502 C$CLEA= 000012 DATER 011630 ECDERL 011312 
BIT1 = 000002 G CMDLST= 000001 G C$CLOS= 000035 DATPAT= 000001 G ECLK 047210 
BIT10 = 002000 G CMDONE= 000200 G C$CLP1i= 000006 DAT 010742 G ECTEL 012707 
BITi1 = 004000 G CMDSEQ= 000006 G C$CPBF= 000074 DAY 020125 G ECTERL 011302 
BIT12 = 010000 G CMDSSV= 000012 G C$CPME= 000075 DAYS 003564 G EC1COR= 000050 G 
BIT13 = 020000 G 010652 G C$CVEC= 000036 DCBEND 004032 G EC2COR= 000052 G 
BIT14 = 040000 G CMDTBL 024366 C$DCLN= 000044 DCBSTP= 000050 G EDCEXT 031232 
BIT15 = 100000 G CMD1 0470 C$DODU= 000051 DCB3SP= 000170 G EDLEXT 032030 
BIT2 = 000004 G CMD2 050476 C$DRPT= 000024 DCMDBF 003572 G CON= 000036 G 
BIT3 = 000010 G CMD3 050504 CsDU = 000053 DCMPER 012507 EF .EOT= 000010 G 
BIT4 = 000020 G CMD4 050512 CS$EDIT= 000000 011112 G EF .LOG= 000040 G 
BITS = 000040 G CMDS 050520 CSERDF= 000055 DEVERR 013272 G EF .NEW= 000035 G 
BIT6 = 000100 G CMD6 050526 CSERHR= 000056 DEVEXT 014400 EF .PWR= 000034 G 
BIT7 = 000200 G CMD7 0534 CSERRO= 000060 DEVFAT= 000001 G EF .RES= 000037 G 
BIT8 = 000400 G CMLSER 012213 CSERSF= 000054 DFPTBL 002204 G EF .SEX= 000020 G 
BIT9 = 001000 G CMMDSQ 021406 G CS$ERSO= 000057 DIAGMC= 000000 STA= 000040 G 
BOE = 000400 G MP = 000030 G CS$ESCA= 000010 DMPBUF 002236 G ELTEXT 032156 
BOTER 011751 CMPDAT 032552 G CSESEG= 000005 DMPFLG 002231 G ENDPAT= 000010 G 
BOT 011012 G CMPEL 013030 ESUB= 000003 DPAT 050362 = 000004 G 
BRCNT 003410 G CMPER 012464 CSETST= 000001 DQCMD 027662 G EOTBIT= 000002 G 
BUFADR 003422 G CMPERL 011152 CSEXIT= 000032 DRBENO 005072 G OTPR = 000010 G 
BUF 034066 CMPERR 003444 G CS$FREQ= 000101 DRBEN1 006132 G ERASE 024750 
BUFDSC 025616 CMPPRI 014210 C$FRME= 000100 DRBEN2 007172 G ERASGP 025006 
BUFOFF= 000012 G CMPT 010732 G C$GETB= 000026 DRBEN3 010232 G ERG = 000120 G 
i 
| 


eee 


PARAMETER CODING 


| Symbol 
[err = 
R 


table 


000113 


027340 


AOHOAHHAAHHHAAH DHOHHHAHAOAHAHAAAAHAAHAAHHAAHAAAAD DHODMADWAAAHHHHAHHAH 


ee ee ee 
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EXC3A4 
EXC4A1 


G$DISP= 


027362 


000003 


HHO AO 


OHH OAH 


GSEXCP= 


IOICRD= 


000400 


020000 


G14 
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ip) 


NHHOHOHD ADM AH ABAAANANAD 


aod DD aM 


OOD MAANMD 


IONORM= 


LUNFLG= 
LUNSTP= 


000000 


000172 


ANAOOA 


AANA AMAAM 


AHOOD AAD 


OHHOHOD AMOOAHD 


002014 


SEQ 175 


LL SSS sees snes 





| PARAMETER CODING 
| Symbol table 


L$UNIT 002012 


ny 
w 
< 
P=] 
" 
So 
So 
ui 
rs rey 4 
DAADAHAOAIAIAIAIAIAIAIAHAUAIANGIAHANAAHAAAAAAHHAAAAHDHAAOH 


L10025 050542 


ee a ne eee ee 
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L10026 


MTBLOV= 


N = 
NCLK 
tl 


115742 


000020 
011541 


So 
DQOHOHHHOHHHOHHD AD AHAAAAHHA AaHAAH Qf aon DHOHOHHOHHHAAHAAAVMAOAAAHA AM 


PATGNS 
PATGN6 


010672 


022504 


H14 
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AAD 


OD AMNMHHAAAAAAAAAAARAAAHA AH o 


AOD 


a 


PATGN7 


VVUVVVVVVVVVVVUUDU 
Oo 
<= 
v 
= 4 
" 


022520 


HVVVVVVVVVVVVVUVUVUUU 
a" 
H 
= 
m 
u 


RNDOBYT= 


000044 


000000 


o 7 °o 
DHHHOH MO MD AVNAAAAAAAGA DAANAANAAANIAAAAAHAAHAAAAAAAAAAAAHADAAH 


AnD 


ee eee 


SEQ 176 


ay 





le 








— a ee ee ee 


114 
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| Symbol table 
RNDITR= 000000 G SFTEX4 047366 ST.CMD= 000001 G TKINIT= 111400 G TS$SRV= 010006 
RNUSAV= 000020 G SFTEXS 047560 ST.CMP= 000007 G TKIP = 000000 G T$$SW = 010001 
ROLSAV= 000022 G SFTEX6 047764 ST.CNT= 000012 G TKIPAD 046262 TS$TES= 010023 
RSPBFO 004026 G SFTEX7 050132 ST.DAT= 000010 G TKSA__= 000002 G 1 040714 G 
RSPBF1 005066 G SFTEX8 050360 ST.DIA= 000037 G TKUNIT= 000004 G TIEXIT 042624 
RSPBF2 006126 G SFTEX9 050466 ST.DRV= 000013 G TK 46277 TILEOT 042644 
RSPBFS 007166 G SKD = 000062 G ST.FNT= 000014 G MB = 000010 G TLONL 042630 
RSPCNT 003402 G KP = 000060 G ST.HST= 000011 G TMCNT 003550 G T1RD1 043050 
RSPHDL 027426 G SKPTMK 024610 ST:LED= 000023 G TMER TIRD2 043056 
RS1 = 001233 G = 000061 G ST.MFE= 000005 G TMT 011022 G TIRD3 043064 
RS2 = 007622 G SLTUSE= 000010 G ST.MSK= 000037 G TRK = 000000 G TIRD4 043072 
RS3___ = 000000 G 047615 ST.OFL= 000003 G 05 TIRDS 043100 
RTYEC1= 000064 G SOERRP 002224 G ST.ONL= 000400 G TSTMSK 003440 G TIRD6 043106 
RTYEC2= 000066 G = 000003 G ST.POL= 000021 G TSTSTP= 000006 G TIREW 042636 
RTYEL 012574 PC = 000050 G ST:RDT= 000020 G TSARGC= 000004 1SKD 042776 
RTYERL 011252 SPCASC 011346 ST.SEX= 000022 G TSCODE= 026004 TISKP 042660 
RWI = 000163 G SPCOBJ 024664 ST.SUB= 000040 G TSERRN= 000000 TISKP1 042754 
R10 003534 G SPCREC 024542 ST.SUC= 000000 G TSEXCP= 000000 TISKP2 042762 
R11 003536 G = 000070 G ST.TM = 000016 G TSFLAG= 000041 TISKR 042666 
R12 003540 G SPR = 000071 G WPR= 000006 G TSFREE= 115746 TISKR1 042724 
R3SAVE 003560 G SRD = 000005 G SUBCNT 003424 G T§GMAN= 000000 TISPC1 042674 
R4SAVE 003562 G SRER 047660 SUBITR 023142 G TSHILI= 065000 TISPC2 042702 
R 003530 G SRTBL 031720 SUBSEC 002216 G TSLAST= 000001 TISPC3 042710 
R 003532 G START 037044 SUC = 000150 G TSLOLI= 000000 T1SP01 042716 
SAERR 010566 G START1 040752 SUCCES= 000001 G TSLSYM= 010000 T1SP02 042732 
SAVDIF 003436 G START2 043154 SUNCHR 025162 TSLTNO= 000007 T1SP03 042740 
= 000230 G STARTS 043612 SUPRES 025650 TSNEST= 177777 TISPR1 042746 
SCD__ = 000052 G START4 044326 W = 000155 G TSNSO = 000000 T1SPR2 042770 
021240 G STARTS 044706 SVCGBL= 000000 T§NS1_= 000005 TIWR1 043004 
SCNTCH 025466 START6 045226 SVCINS= 000000 TSPCNT= 000000 TIWR2 043012 
CR "= 000051 G START? 045704 VCSUB= 000000 TSPTAB= 010027 TIWR3 043020 
SDSAVE 033632 G STATER 012445 SVCTAG= 000000 TSPTHV= 000001 TIWR4 043026 
SDSTUP 033556 G STATUS= 000004 G SVCTST= 000000 TSPTNU= 000001 TIWRS 043034 
SECOND 002215 G STATO 035464 SWR_ = 000004 G TSSAVL= 177777 TIWR6 04 
SECRNS 003542 G STATI 035467 SYSFAT= 000000 G TSSEGL= 177777 TIWTM 042652 
ED1 = 000136 G STAT1O 036222 S$LSYM= 010000 T$SIZE= 000004 43116 G 
SED2 = 000140 G STAT11 036272 S1 = 004000 G TSSUBN= 000000 T2END = 004716 G 
SED3. = 000142 G STATI2 036344 SIREAD= 000040 G TSTAGL= 177777 T2EXIT 043534 
SEED1 = 000144 G STATI13 036405 SIWRIT= 000044 G TSTAGN= 010031 T2LEOT 043560 
SEED2 = 000146 G STAT14 036430 S2READ= 000042 G TSTEMP= 000000 TeRD 043566 
SEED3_= 000150 G STATIS 036453 S2WRIT= 000046 G TSTEST= 000007 TOREW 043544 
SELDAT 022212 G STAT16 036525 TBLBTM= 000132 G TSTSTM= 177777 T2SKD 043574 
SELREC 022644 G STAT17 036577 TBLEND= 003472 G TSTSTS= 000001 T2SPO 043602 
SEQER 012347 G STATI8 036647 TBLFUL 036716 G TS$AU_= 010014 T2WRT 043552 
SERC 047471 STAT2 035533 TBLOFF 003544 G TS$AUT= 010011 13 043612 G 
SERCOR 002221 G STATS 035600 TBLSRT 032162 G TS$CLE= 010012 T3EXIT 04 
SEREXC= 000002 G STAT4 035660 TBLTOP= 000130 G T$$DAT= 010030 T30N 050201 
047425 STATS 035705 TCNTFL= 000004 G T$$DU = 010013 T30NLY 002234 G 
SERREC 002220 G STAT6 035752 TESTPA 002232 G TS$HAR= 010024 T3RD 044252 
= 000004 G STAT? 036024 TF.BLK= 000010 G TS$HW_= 010000 T3REW 044230 
SEXER 012063 STAT8 036071 TF:GCR= 000004 G TS$INI= 010010 T3SPO 044260 
SEXT 011062 G STAT9 036143 TF.PE = 000002 G TS$MSG= 010003 T3WRT 044236 
SFPTBL 002212 G STFPCK 024164 G TF .800= 000001 G T$$PC = 000001 T3WTM 044044 
SFTEXT 050542 STINIT 037004 G TIME 020044 G T$$PRO= 010004 14 044270 G 
SFTEX1 046740 ST.ABO= 000002 G TIMER 010556 G TS$PTA= 010027 TSEXIT 044620 
SFTEX2 047134 ST.AVL= 000004 G TIMERR 012312 T$$RPT= 010007 T4REW 044624 
SFTEX3 047206 ST.BOT= 000015 G TKERR 026474 TS$$SOF= 010025 T4WRT 044632 


| ‘ 


ee ee ee 


| PARAMETER CODING 


| Symbol table 
T4WT™M 044640 
T5 meg tes G 


aD 


17 
T7BRFL= 000001 
T7CMD1 002240 


. ABS. 115746 
000000 
Errors detected: 
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T7CMD2 002246 


003526 G 

UF .CMR= 000001 G 

UF .CMW= 000002 G 
000 §86(RW,1I,GBL,ABS,OVR) 
001 (RW,I,LCL,REL,CON) 


0 


*** Assembler statistics 


Work file reads: 


331 


Work file writes: 328 


Size of work file: 
Size of core pool: 
Operating system: 


Elapsed time: 


35448 Words ( 438 poeee? 
19714 Words ( 7 peers: 
RSX-11M/PLUS funder AX/VMS) 


0:10:26.01 
CZTKBA.BIN, CoTKBA. LST/-SP=SVC40R.MLB/ML ,CZTKBA 


UNTTBL 
URBEND= 
URDEND= 


000200 
000040 


So 

So 

So 

So 

sN 

Ls) 
AWOMOADHHOHHHAHAHMHAGD 


000164 G 


J14 
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URDSRG= 
UREEL 


000162 G 
0 


X$TRUE= 


0004 
000020 


SEQ 178 


j 
ce ee a a ee we oe eee 
a 8 


